home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 1 / ETO Development Tools 1.iso / Essentials / Developer Essentials Jul 90 / DTS Sample Code / Macintosh Sample Code / Monthly Releases (Compressed) / MacDTS.Sample.Code.90.02.sit / SC.013.OOPTESample / UApplication.inc1.p < prev    next >
MacBinary  |  1989-10-01  |  14.1 KB  |  [TEXT/MPS ]

open in: MacOS 8.1     |     Win98     |     DOS

browse contents    |     view JSON data     |     view as text


This file was processed as: MacBinary (archive/macBinary).

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert ZX81 Sinclair BASIC (image/sinclairBASIC) ext Supported
10% dexvert MacBinary (archive/macBinary) fallback Supported
1% dexvert Text File (text/txt) fallback Supported
100% file MacBinary II, inited, Sun Oct 1 00:00:00 1989, modified Sun Oct 1 00:00:00 1989, creator 'MPS ', type ASCII, 13849 bytes "UApplication.inc1.p" , at 0x3699 362 bytes resource default (weak)
99% file data default
74% TrID Macintosh plain text (MacBinary) default
25% TrID MacBinary 2 default (weak)
100% siegfried fmt/1762 MacBinary (II) default
100% lsar MacBinary default


id metadata
keyvalue
macFileType[TEXT]
macFileCreator[MPS ]



hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 13 55 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 69 |..UAppli|cation.i|
|00000010| 6e 63 31 2e 70 00 00 00 | 00 00 00 00 00 00 00 00 |nc1.p...|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 4d 50 53 | 20 01 00 00 00 00 00 00 |.TEXTMPS| .......|
|00000050| 00 00 00 00 00 36 19 00 | 00 01 6a a1 4b 3c 40 a1 |.....6..|..j.K<@.|
|00000060| 4b 3c 40 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |K<@.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 2b f9 00 00 |........|....+...|
|00000080| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00000090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000000c0| 2d 2d 2d 2d 2d 2d 0d 23 | 0d 23 09 41 70 70 6c 65 |------.#|.#.Apple|
|000000d0| 20 4d 61 63 69 6e 74 6f | 73 68 20 44 65 76 65 6c | Macinto|sh Devel|
|000000e0| 6f 70 65 72 20 54 65 63 | 68 6e 69 63 61 6c 20 53 |oper Tec|hnical S|
|000000f0| 75 70 70 6f 72 74 0d 23 | 0d 23 09 4d 75 6c 74 69 |upport.#|.#.Multi|
|00000100| 46 69 6e 64 65 72 2d 41 | 77 61 72 65 20 53 69 6d |Finder-A|ware Sim|
|00000110| 70 6c 65 20 54 65 78 74 | 45 64 69 74 20 53 61 6d |ple Text|Edit Sam|
|00000120| 70 6c 65 20 41 70 70 6c | 69 63 61 74 69 6f 6e 0d |ple Appl|ication.|
|00000130| 23 0d 23 09 4f 4f 50 54 | 45 53 61 6d 70 6c 65 0d |#.#.OOPT|ESample.|
|00000140| 23 0d 23 09 55 41 70 70 | 6c 69 63 61 74 69 6f 6e |#.#.UApp|lication|
|00000150| 2e 69 6e 63 31 2e 70 09 | 09 2d 09 50 61 73 63 61 |.inc1.p.|.-.Pasca|
|00000160| 6c 20 53 6f 75 72 63 65 | 0d 23 0d 23 09 43 6f 70 |l Source|.#.#.Cop|
|00000170| 79 72 69 67 68 74 20 a9 | 20 31 39 38 38 2c 20 31 |yright .| 1988, 1|
|00000180| 39 38 39 20 41 70 70 6c | 65 20 43 6f 6d 70 75 74 |989 Appl|e Comput|
|00000190| 65 72 2c 20 49 6e 63 2e | 0d 23 09 41 6c 6c 20 72 |er, Inc.|.#.All r|
|000001a0| 69 67 68 74 73 20 72 65 | 73 65 72 76 65 64 2e 0d |ights re|served..|
|000001b0| 23 0d 23 09 56 65 72 73 | 69 6f 6e 3a 09 09 0d 23 |#.#.Vers|ion:...#|
|000001c0| 09 09 09 09 09 31 2e 31 | 30 09 09 09 09 09 31 30 |.....1.1|0.....10|
|000001d0| 2f 38 39 0d 23 09 09 09 | 09 09 31 2e 30 30 09 09 |/89.#...|..1.00..|
|000001e0| 09 09 09 30 34 2f 38 39 | 0d 23 0d 23 09 43 6f 6d |...04/89|.#.#.Com|
|000001f0| 70 6f 6e 65 6e 74 73 3a | 20 20 20 20 20 0d 23 09 |ponents:| .#.|
|00000200| 09 09 09 09 42 75 69 6c | 64 4f 4f 50 54 45 53 61 |....Buil|dOOPTESa|
|00000210| 6d 70 6c 65 09 09 4f 63 | 74 6f 62 65 72 20 31 2c |mple..Oc|tober 1,|
|00000220| 20 31 39 38 39 0d 23 09 | 09 09 09 09 4d 4f 4f 50 | 1989.#.|....MOOP|
|00000230| 54 45 53 61 6d 70 6c 65 | 2e 70 09 09 09 4f 63 74 |TESample|.p...Oct|
|00000240| 6f 62 65 72 20 31 2c 20 | 31 39 38 39 0d 23 09 09 |ober 1, |1989.#..|
|00000250| 09 09 09 4f 4f 50 54 45 | 53 61 6d 70 6c 65 2e 6d |...OOPTE|Sample.m|
|00000260| 61 6b 65 09 09 4f 63 74 | 6f 62 65 72 20 31 2c 20 |ake..Oct|ober 1, |
|00000270| 31 39 38 39 0d 23 09 09 | 09 09 09 54 45 43 6f 6d |1989.#..|...TECom|
|00000280| 6d 6f 6e 2e 68 09 09 09 | 09 4f 63 74 6f 62 65 72 |mon.h...|.October|
|00000290| 20 31 2c 20 31 39 38 39 | 0d 23 09 09 09 09 09 54 | 1, 1989|.#.....T|
|000002a0| 45 53 61 6d 70 6c 65 47 | 6c 75 65 2e 61 09 09 09 |ESampleG|lue.a...|
|000002b0| 4f 63 74 6f 62 65 72 20 | 31 2c 20 31 39 38 39 0d |October |1, 1989.|
|000002c0| 23 09 09 09 09 09 54 45 | 53 61 6d 70 6c 65 2e 72 |#.....TE|Sample.r|
|000002d0| 09 09 09 09 4f 63 74 6f | 62 65 72 20 31 2c 20 31 |....Octo|ber 1, 1|
|000002e0| 39 38 39 0d 23 09 09 09 | 09 09 55 41 70 70 6c 69 |989.#...|..UAppli|
|000002f0| 63 61 74 69 6f 6e 2e 70 | 09 09 09 4f 63 74 6f 62 |cation.p|...Octob|
|00000300| 65 72 20 31 2c 20 31 39 | 38 39 0d 23 09 09 09 09 |er 1, 19|89.#....|
|00000310| 09 55 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 69 6e |.UApplic|ation.in|
|00000320| 63 31 2e 70 09 09 4f 63 | 74 6f 62 65 72 20 31 2c |c1.p..Oc|tober 1,|
|00000330| 20 31 39 38 39 0d 23 09 | 09 09 09 09 55 44 6f 63 | 1989.#.|....UDoc|
|00000340| 75 6d 65 6e 74 2e 70 09 | 09 09 09 4f 63 74 6f 62 |ument.p.|...Octob|
|00000350| 65 72 20 31 2c 20 31 39 | 38 39 0d 23 09 09 09 09 |er 1, 19|89.#....|
|00000360| 09 55 44 6f 63 75 6d 65 | 6e 74 2e 69 6e 63 31 2e |.UDocume|nt.inc1.|
|00000370| 70 09 09 4f 63 74 6f 62 | 65 72 20 31 2c 20 31 39 |p..Octob|er 1, 19|
|00000380| 38 39 0d 23 09 09 09 09 | 09 55 54 45 44 6f 63 75 |89.#....|.UTEDocu|
|00000390| 6d 65 6e 74 2e 70 09 09 | 09 4f 63 74 6f 62 65 72 |ment.p..|.October|
|000003a0| 20 31 2c 20 31 39 38 39 | 0d 23 09 09 09 09 09 55 | 1, 1989|.#.....U|
|000003b0| 54 45 44 6f 63 75 6d 65 | 6e 74 2e 69 6e 63 31 2e |TEDocume|nt.inc1.|
|000003c0| 70 09 09 4f 63 74 6f 62 | 65 72 20 31 2c 20 31 39 |p..Octob|er 1, 19|
|000003d0| 38 39 0d 23 09 09 09 09 | 09 55 54 45 53 61 6d 70 |89.#....|.UTESamp|
|000003e0| 6c 65 2e 70 09 09 09 09 | 4f 63 74 6f 62 65 72 20 |le.p....|October |
|000003f0| 31 2c 20 31 39 38 39 0d | 23 09 09 09 09 09 55 54 |1, 1989.|#.....UT|
|00000400| 45 53 61 6d 70 6c 65 2e | 69 6e 63 31 2e 70 09 09 |ESample.|inc1.p..|
|00000410| 4f 63 74 6f 62 65 72 20 | 31 2c 20 31 39 38 39 0d |October |1, 1989.|
|00000420| 23 0d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |#.------|--------|
|00000430| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000440| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000450| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000460| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 0d 43 4f 4e 53 54 0d |-------}|..CONST.|
|00000470| 09 6b 4f 53 45 76 65 6e | 74 09 09 09 09 3d 20 61 |.kOSEven|t....= a|
|00000480| 70 70 34 45 76 74 3b 09 | 7b 20 45 76 65 6e 74 20 |pp4Evt;.|{ Event |
|00000490| 75 73 65 64 20 62 79 20 | 4d 75 6c 74 69 46 69 6e |used by |MultiFin|
|000004a0| 64 65 72 20 7d 0d 09 6b | 53 75 73 70 65 6e 64 52 |der }..k|SuspendR|
|000004b0| 65 73 75 6d 65 4d 65 73 | 73 61 67 65 09 3d 20 24 |esumeMes|sage.= $|
|000004c0| 30 31 3b 09 09 7b 20 68 | 69 67 68 20 62 79 74 65 |01;..{ h|igh byte|
|000004d0| 20 6f 66 20 73 75 73 70 | 65 6e 64 2f 72 65 73 75 | of susp|end/resu|
|000004e0| 6d 65 20 65 76 65 6e 74 | 20 6d 65 73 73 61 67 65 |me event| message|
|000004f0| 20 7d 0d 09 6b 43 6c 69 | 70 43 6f 6e 76 65 72 74 | }..kCli|pConvert|
|00000500| 4d 61 73 6b 09 09 3d 20 | 24 30 32 3b 09 09 7b 20 |Mask..= |$02;..{ |
|00000510| 62 69 74 20 6f 66 20 6d | 65 73 73 61 67 65 20 66 |bit of m|essage f|
|00000520| 69 65 6c 64 20 63 6c 69 | 70 20 63 6f 6e 76 65 72 |ield cli|p conver|
|00000530| 73 69 6f 6e 20 7d 0d 09 | 6b 52 65 73 75 6d 65 4d |sion }..|kResumeM|
|00000540| 61 73 6b 09 09 09 09 3d | 20 24 30 31 3b 09 09 7b |ask....=| $01;..{|
|00000550| 20 62 69 74 20 6f 66 20 | 6d 65 73 73 61 67 65 20 | bit of |message |
|00000560| 66 69 65 6c 64 20 66 6f | 72 20 72 65 73 75 6d 65 |field fo|r resume|
|00000570| 20 76 73 2e 20 73 75 73 | 70 65 6e 64 20 7d 0d 09 | vs. sus|pend }..|
|00000580| 6b 4d 6f 75 73 65 4d 6f | 76 65 64 4d 65 73 73 61 |kMouseMo|vedMessa|
|00000590| 67 65 09 09 3d 20 24 46 | 41 3b 09 09 7b 20 68 69 |ge..= $F|A;..{ hi|
|000005a0| 67 68 20 62 79 74 65 20 | 6f 66 20 6d 6f 75 73 65 |gh byte |of mouse|
|000005b0| 2d 6d 6f 76 65 64 20 65 | 76 65 6e 74 20 6d 65 73 |-moved e|vent mes|
|000005c0| 73 61 67 65 20 7d 0d 09 | 0d 09 6b 45 72 72 53 74 |sage }..|..kErrSt|
|000005d0| 72 69 6e 67 73 09 09 09 | 09 3d 20 31 32 38 3b 0d |rings...|.= 128;.|
|000005e0| 09 72 55 73 65 72 41 6c | 65 72 74 09 09 09 09 3d |.rUserAl|ert....=|
|000005f0| 20 31 32 39 3b 0d 09 0d | 09 65 57 72 6f 6e 67 4d | 129;...|.eWrongM|
|00000600| 61 63 68 69 6e 65 09 09 | 09 3d 20 31 3b 0d 09 65 |achine..|.= 1;..e|
|00000610| 53 6d 61 6c 6c 53 69 7a | 65 09 09 09 09 3d 20 32 |SmallSiz|e....= 2|
|00000620| 3b 0d 0d 0d 28 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |;...(***|********|
|00000630| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000640| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000650| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000660| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000670| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000680| 2a 29 0d 28 2a 09 09 55 | 20 74 20 69 20 6c 20 69 |*).(*..U| t i l i|
|00000690| 20 74 20 79 20 20 20 72 | 20 6f 20 75 20 74 20 69 | t y r| o u t i|
|000006a0| 20 6e 20 65 20 73 09 09 | 09 09 09 09 09 09 09 09 | n e s..|........|
|000006b0| 09 09 09 09 2a 29 0d 28 | 2a 2a 2a 2a 2a 2a 2a 2a |....*).(|********|
|000006c0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006d0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006e0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|000006f0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000700| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000710| 2a 2a 2a 2a 29 0d 0d 7b | 54 68 69 73 20 72 6f 75 |****)..{|This rou|
|00000720| 74 69 6e 65 20 69 73 20 | 70 61 72 74 20 6f 66 20 |tine is |part of |
|00000730| 74 68 65 20 4d 50 57 20 | 72 75 6e 74 69 6d 65 20 |the MPW |runtime |
|00000740| 6c 69 62 72 61 72 79 2e | 20 54 68 69 73 20 65 78 |library.| This ex|
|00000750| 74 65 72 6e 61 6c 0d 20 | 72 65 66 65 72 65 6e 63 |ternal. |referenc|
|00000760| 65 20 74 6f 20 69 74 20 | 69 73 20 64 6f 6e 65 20 |e to it |is done |
|00000770| 73 6f 20 74 68 61 74 20 | 77 65 20 63 61 6e 20 75 |so that |we can u|
|00000780| 6e 6c 6f 61 64 20 69 74 | 73 20 73 65 67 6d 65 6e |nload it|s segmen|
|00000790| 74 2c 20 25 41 35 49 6e | 69 74 2e 7d 0d 0d 50 52 |t, %A5In|it.}..PR|
|000007a0| 4f 43 45 44 55 52 45 20 | 5f 44 61 74 61 49 6e 69 |OCEDURE |_DataIni|
|000007b0| 74 3b 0d 09 45 58 54 45 | 52 4e 41 4c 3b 0d 0d 7b |t;..EXTE|RNAL;..{|
|000007c0| 24 53 20 4d 61 69 6e 7d | 0d 7b 2d 2d 2d 2d 2d 2d |$S Main}|.{------|
|000007d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000007e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 0d 7c |--------|-----+.||
|000007f0| 09 41 6c 65 72 74 55 73 | 65 72 09 09 09 09 09 09 |.AlertUs|er......|
|00000800| 7c 0d 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d ||.+-----|--------|
|00000810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000820| 2d 2d 2d 2d 2d 2d 7d 0d | 7b 20 44 69 73 70 6c 61 |------}.|{ Displa|
|00000830| 79 20 61 6c 65 72 74 2c | 20 75 73 69 6e 67 20 73 |y alert,| using s|
|00000840| 70 65 63 69 66 69 65 64 | 20 65 72 72 6f 72 20 53 |pecified| error S|
|00000850| 54 52 23 20 72 65 73 6f | 75 72 63 65 20 61 6e 64 |TR# reso|urce and|
|00000860| 20 65 72 72 6f 72 20 63 | 6f 64 65 20 61 73 20 69 | error c|ode as i|
|00000870| 6e 64 65 78 20 7d 0d 50 | 52 4f 43 45 44 55 52 45 |ndex }.P|ROCEDURE|
|00000880| 20 41 6c 65 72 74 55 73 | 65 72 28 65 72 72 52 65 | AlertUs|er(errRe|
|00000890| 73 49 44 3a 69 6e 74 65 | 67 65 72 3b 20 65 72 72 |sID:inte|ger; err|
|000008a0| 43 6f 64 65 3a 69 6e 74 | 65 67 65 72 29 3b 0d 56 |Code:int|eger);.V|
|000008b0| 41 52 0d 09 6d 65 73 73 | 61 67 65 3a 20 53 74 72 |AR..mess|age: Str|
|000008c0| 32 35 35 3b 0d 09 64 75 | 6d 6d 79 3a 20 69 6e 74 |255;..du|mmy: int|
|000008d0| 65 67 65 72 3b 0d 42 45 | 47 49 4e 0d 09 53 65 74 |eger;.BE|GIN..Set|
|000008e0| 43 75 72 73 6f 72 28 61 | 72 72 6f 77 29 3b 0d 09 |Cursor(a|rrow);..|
|000008f0| 47 65 74 49 6e 64 53 74 | 72 69 6e 67 28 6d 65 73 |GetIndSt|ring(mes|
|00000900| 73 61 67 65 2c 20 65 72 | 72 52 65 73 49 44 2c 20 |sage, er|rResID, |
|00000910| 65 72 72 43 6f 64 65 29 | 3b 0d 09 50 61 72 61 6d |errCode)|;..Param|
|00000920| 54 65 78 74 28 6d 65 73 | 73 61 67 65 2c 20 27 27 |Text(mes|sage, ''|
|00000930| 2c 20 27 27 2c 20 27 27 | 29 3b 0d 09 64 75 6d 6d |, '', ''|);..dumm|
|00000940| 79 20 3a 3d 20 41 6c 65 | 72 74 28 72 55 73 65 72 |y := Ale|rt(rUser|
|00000950| 41 6c 65 72 74 2c 20 4e | 49 4c 29 3b 0d 45 4e 44 |Alert, N|IL);.END|
|00000960| 3b 0d 0d 7b 24 53 20 4d | 61 69 6e 7d 0d 7b 2d 2d |;..{$S M|ain}.{--|
|00000970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000980| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000990| 2d 2b 0d 7c 09 42 69 67 | 42 61 64 45 72 72 6f 72 |-+.|.Big|BadError|
|000009a0| 09 09 09 09 09 09 7c 0d | 2b 2d 2d 2d 2d 2d 2d 2d |......|.|+-------|
|000009b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000009c0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 7d 0d 7b 20 |--------|----}.{ |
|000009d0| 63 61 6c 6c 20 41 6c 65 | 72 74 55 73 65 72 20 74 |call Ale|rtUser t|
|000009e0| 6f 20 64 69 73 70 6c 61 | 79 20 65 72 72 6f 72 20 |o displa|y error |
|000009f0| 6d 65 73 73 61 67 65 2c | 20 74 68 65 6e 20 71 75 |message,| then qu|
|00000a00| 69 74 2e 2e 2e 20 7d 0d | 50 52 4f 43 45 44 55 52 |it... }.|PROCEDUR|
|00000a10| 45 20 42 69 67 42 61 64 | 45 72 72 6f 72 28 65 72 |E BigBad|Error(er|
|00000a20| 72 52 65 73 49 44 3a 69 | 6e 74 65 67 65 72 3b 20 |rResID:i|nteger; |
|00000a30| 65 72 72 43 6f 64 65 3a | 20 69 6e 74 65 67 65 72 |errCode:| integer|
|00000a40| 29 3b 0d 42 45 47 49 4e | 0d 09 41 6c 65 72 74 55 |);.BEGIN|..AlertU|
|00000a50| 73 65 72 28 65 72 72 52 | 65 73 49 44 2c 65 72 72 |ser(errR|esID,err|
|00000a60| 43 6f 64 65 29 3b 0d 09 | 45 78 69 74 54 6f 53 68 |Code);..|ExitToSh|
|00000a70| 65 6c 6c 3b 0d 45 4e 44 | 3b 0d 0d 7b 24 53 20 49 |ell;.END|;..{$S I|
|00000a80| 6e 69 74 69 61 6c 69 7a | 65 7d 0d 50 52 4f 43 45 |nitializ|e}.PROCE|
|00000a90| 44 55 52 45 20 49 6e 69 | 74 53 65 67 3b 0d 42 45 |DURE Ini|tSeg;.BE|
|00000aa0| 47 49 4e 0d 45 4e 44 3b | 0d 0d 28 2a 2a 2a 2a 2a |GIN.END;|..(*****|
|00000ab0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ac0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ad0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000ae0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000af0| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b00| 2a 2a 2a 2a 2a 2a 2a 29 | 0d 28 2a 09 09 54 20 41 |*******)|.(*..T A|
|00000b10| 20 70 20 70 20 6c 20 69 | 20 63 20 61 20 74 20 69 | p p l i| c a t i|
|00000b20| 20 6f 20 6e 09 09 09 09 | 09 09 09 09 09 09 09 09 | o n....|........|
|00000b30| 09 09 09 09 2a 29 0d 28 | 2a 2a 2a 2a 2a 2a 2a 2a |....*).(|********|
|00000b40| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b50| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b60| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b70| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b80| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000b90| 2a 2a 2a 2a 29 0d 7b 24 | 53 20 49 6e 69 74 69 61 |****).{$|S Initia|
|00000ba0| 6c 69 7a 65 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |lize}.{-|--------|
|00000bb0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000bc0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 49 41 |--------|--+.|.IA|
|00000bd0| 70 70 6c 69 63 61 74 69 | 6f 6e 09 09 09 09 09 7c |pplicati|on.....||
|00000be0| 0d 2b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.+------|--------|
|00000bf0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00000c00| 2d 2d 2d 2d 2d 7d 0d 50 | 52 4f 43 45 44 55 52 45 |-----}.P|ROCEDURE|
|00000c10| 20 54 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 49 41 | TApplic|ation.IA|
|00000c20| 70 70 6c 69 63 61 74 69 | 6f 6e 3b 0d 0d 56 41 52 |pplicati|on;..VAR|
|00000c30| 0d 09 65 6e 76 52 65 63 | 3a 20 73 79 73 45 6e 76 |..envRec|: sysEnv|
|00000c40| 52 65 63 3b 0d 09 73 74 | 6b 4e 65 65 64 65 64 2c |Rec;..st|kNeeded,|
|00000c50| 20 68 65 61 70 53 69 7a | 65 3a 20 6c 6f 6e 67 69 | heapSiz|e: longi|
|00000c60| 6e 74 3b 0d 09 64 75 6d | 6d 79 3a 20 4f 53 45 72 |nt;..dum|my: OSEr|
|00000c70| 72 3b 0d 0d 42 45 47 49 | 4e 0d 09 7b 20 69 6e 69 |r;..BEGI|N..{ ini|
|00000c80| 74 69 61 6c 69 7a 65 20 | 4d 61 63 20 54 6f 6f 6c |tialize |Mac Tool|
|00000c90| 62 6f 78 20 63 6f 6d 70 | 6f 6e 65 6e 74 73 20 7d |box comp|onents }|
|00000ca0| 0d 09 49 6e 69 74 47 72 | 61 66 28 40 74 68 65 50 |..InitGr|af(@theP|
|00000cb0| 6f 72 74 29 3b 0d 09 49 | 6e 69 74 46 6f 6e 74 73 |ort);..I|nitFonts|
|00000cc0| 3b 0d 09 49 6e 69 74 57 | 69 6e 64 6f 77 73 3b 0d |;..InitW|indows;.|
|00000cd0| 09 49 6e 69 74 4d 65 6e | 75 73 3b 0d 09 54 45 49 |.InitMen|us;..TEI|
|00000ce0| 6e 69 74 3b 0d 09 49 6e | 69 74 44 69 61 6c 6f 67 |nit;..In|itDialog|
|00000cf0| 73 28 4e 49 4c 29 3b 0d | 09 49 6e 69 74 43 75 72 |s(NIL);.|.InitCur|
|00000d00| 73 6f 72 3b 0d 0d 09 7b | 20 55 6e 6c 6f 61 64 20 |sor;...{| Unload |
|00000d10| 64 61 74 61 20 73 65 67 | 6d 65 6e 74 3a 20 6e 6f |data seg|ment: no|
|00000d20| 74 65 20 74 68 61 74 20 | 5f 44 61 74 61 49 6e 69 |te that |_DataIni|
|00000d30| 74 20 6d 75 73 74 20 6e | 6f 74 20 62 65 20 69 6e |t must n|ot be in|
|00000d40| 20 4d 61 69 6e 21 20 7d | 0d 09 55 6e 6c 6f 61 64 | Main! }|..Unload|
|00000d50| 53 65 67 28 40 5f 44 61 | 74 61 49 6e 69 74 29 3b |Seg(@_Da|taInit);|
|00000d60| 0d 0d 09 7b 20 49 67 6e | 6f 72 65 20 74 68 65 20 |...{ Ign|ore the |
|00000d70| 65 72 72 6f 72 20 72 65 | 74 75 72 6e 65 64 20 66 |error re|turned f|
|00000d80| 72 6f 6d 20 53 79 73 45 | 6e 76 69 72 6f 6e 73 3b |rom SysE|nvirons;|
|00000d90| 20 65 76 65 6e 20 69 66 | 20 61 6e 20 65 72 72 6f | even if| an erro|
|00000da0| 72 20 6f 63 63 75 72 72 | 65 64 2c 20 7d 0d 09 7b |r occurr|ed, }..{|
|00000db0| 20 74 68 65 20 53 79 73 | 45 6e 76 69 72 6f 6e 73 | the Sys|Environs|
|00000dc0| 20 67 6c 75 65 20 77 69 | 6c 6c 20 66 69 6c 6c 20 | glue wi|ll fill |
|00000dd0| 69 6e 20 74 68 65 20 53 | 79 73 45 6e 76 52 65 63 |in the S|ysEnvRec|
|00000de0| 20 7d 0d 09 64 75 6d 6d | 79 20 3a 3d 20 53 79 73 | }..dumm|y := Sys|
|00000df0| 45 6e 76 69 72 6f 6e 73 | 28 63 75 72 53 79 73 45 |Environs|(curSysE|
|00000e00| 6e 76 56 65 72 73 2c 20 | 65 6e 76 52 65 63 29 3b |nvVers, |envRec);|
|00000e10| 0d 0d 09 7b 20 41 72 65 | 20 77 65 20 72 75 6e 6e |...{ Are| we runn|
|00000e20| 69 6e 67 20 6f 6e 20 61 | 20 31 32 38 4b 20 52 4f |ing on a| 128K RO|
|00000e30| 4d 20 6d 61 63 68 69 6e | 65 20 6f 72 20 62 65 74 |M machin|e or bet|
|00000e40| 74 65 72 3f 3f 3f 20 7d | 0d 09 49 46 20 28 65 6e |ter??? }|..IF (en|
|00000e50| 76 52 65 63 2e 6d 61 63 | 68 69 6e 65 54 79 70 65 |vRec.mac|hineType|
|00000e60| 20 3c 20 30 29 20 54 48 | 45 4e 0d 09 20 20 42 69 | < 0) TH|EN.. Bi|
|00000e70| 67 42 61 64 45 72 72 6f | 72 28 6b 45 72 72 53 74 |gBadErro|r(kErrSt|
|00000e80| 72 69 6e 67 73 2c 65 57 | 72 6f 6e 67 4d 61 63 68 |rings,eW|rongMach|
|00000e90| 69 6e 65 29 3b 09 09 7b | 20 69 66 20 6e 6f 74 2c |ine);..{| if not,|
|00000ea0| 20 61 6c 65 72 74 20 26 | 20 71 75 69 74 20 7d 0d | alert &| quit }.|
|00000eb0| 0d 09 7b 20 69 66 20 77 | 65 20 6e 65 65 64 20 6d |..{ if w|e need m|
|00000ec0| 6f 72 65 20 73 74 61 63 | 6b 20 73 70 61 63 65 2c |ore stac|k space,|
|00000ed0| 20 67 65 74 20 69 74 20 | 6e 6f 77 20 7d 0d 09 73 | get it |now }..s|
|00000ee0| 74 6b 4e 65 65 64 65 64 | 20 3a 3d 20 53 74 61 63 |tkNeeded| := Stac|
|00000ef0| 6b 4e 65 65 64 65 64 3b | 0d 09 49 46 20 28 73 74 |kNeeded;|..IF (st|
|00000f00| 6b 4e 65 65 64 65 64 20 | 3e 20 53 74 61 63 6b 53 |kNeeded |> StackS|
|00000f10| 70 61 63 65 29 20 54 48 | 45 4e 20 42 45 47 49 4e |pace) TH|EN BEGIN|
|00000f20| 0d 09 09 7b 20 6e 65 77 | 20 61 64 64 72 65 73 73 |...{ new| address|
|00000f30| 20 69 73 20 68 65 61 70 | 20 73 69 7a 65 20 2b 20 | is heap| size + |
|00000f40| 63 75 72 72 65 6e 74 20 | 73 74 61 63 6b 20 2d 20 |current |stack - |
|00000f50| 6e 65 65 64 65 64 20 73 | 74 61 63 6b 20 7d 0d 09 |needed s|tack }..|
|00000f60| 09 53 65 74 41 70 70 6c | 4c 69 6d 69 74 28 50 74 |.SetAppl|Limit(Pt|
|00000f70| 72 28 28 6c 6f 6e 67 69 | 6e 74 28 47 65 74 41 70 |r((longi|nt(GetAp|
|00000f80| 70 6c 4c 69 6d 69 74 29 | 20 2d 20 73 74 6b 4e 65 |plLimit)| - stkNe|
|00000f90| 65 64 65 64 20 2b 20 53 | 74 61 63 6b 53 70 61 63 |eded + S|tackSpac|
|00000fa0| 65 29 29 29 3b 0d 09 45 | 4e 44 3b 0d 09 0d 09 7b |e)));..E|ND;....{|
|00000fb0| 20 43 68 65 63 6b 20 66 | 6f 72 20 6d 69 6e 69 6d | Check f|or minim|
|00000fc0| 75 6d 20 68 65 61 70 20 | 73 69 7a 65 20 7d 0d 09 |um heap |size }..|
|00000fd0| 68 65 61 70 53 69 7a 65 | 20 3a 3d 20 6c 6f 6e 67 |heapSize| := long|
|00000fe0| 69 6e 74 28 47 65 74 41 | 70 70 6c 4c 69 6d 69 74 |int(GetA|pplLimit|
|00000ff0| 29 20 2d 20 6c 6f 6e 67 | 69 6e 74 28 41 70 70 6c |) - long|int(Appl|
|00001000| 69 63 5a 6f 6e 65 29 3b | 0d 09 49 46 20 28 68 65 |icZone);|..IF (he|
|00001010| 61 70 53 69 7a 65 20 3c | 20 48 65 61 70 4e 65 65 |apSize <| HeapNee|
|00001020| 64 65 64 29 20 54 48 45 | 4e 0d 09 20 20 42 69 67 |ded) THE|N.. Big|
|00001030| 42 61 64 45 72 72 6f 72 | 28 6b 45 72 72 53 74 72 |BadError|(kErrStr|
|00001040| 69 6e 67 73 2c 65 53 6d | 61 6c 6c 53 69 7a 65 29 |ings,eSm|allSize)|
|00001050| 3b 0d 0d 09 7b 20 65 78 | 70 61 6e 64 20 74 68 65 |;...{ ex|pand the|
|00001060| 20 68 65 61 70 20 73 6f | 20 6e 65 77 20 63 6f 64 | heap so| new cod|
|00001070| 65 20 73 65 67 6d 65 6e | 74 73 20 6c 6f 61 64 20 |e segmen|ts load |
|00001080| 61 74 20 74 68 65 20 74 | 6f 70 20 7d 0d 09 4d 61 |at the t|op }..Ma|
|00001090| 78 41 70 70 6c 5a 6f 6e | 65 3b 0d 0d 09 7b 20 61 |xApplZon|e;...{ a|
|000010a0| 6c 6c 6f 63 61 74 65 20 | 61 6e 20 65 6d 70 74 79 |llocate |an empty|
|000010b0| 20 64 6f 63 75 6d 65 6e | 74 20 6c 69 73 74 20 7d | documen|t list }|
|000010c0| 0d 09 4e 45 57 28 66 44 | 6f 63 4c 69 73 74 29 3b |..NEW(fD|ocList);|
|000010d0| 0d 09 66 44 6f 63 4c 69 | 73 74 2e 49 44 6f 63 75 |..fDocLi|st.IDocu|
|000010e0| 6d 65 6e 74 4c 69 73 74 | 3b 0d 0d 09 7b 20 63 68 |mentList|;...{ ch|
|000010f0| 65 63 6b 20 74 6f 20 73 | 65 65 20 69 66 20 57 61 |eck to s|ee if Wa|
|00001100| 69 74 4e 65 78 74 45 76 | 65 6e 74 20 69 73 20 69 |itNextEv|ent is i|
|00001110| 6d 70 6c 65 6d 65 6e 74 | 65 64 20 7d 0d 09 66 48 |mplement|ed }..fH|
|00001120| 61 76 65 57 61 69 74 4e | 65 78 74 45 76 65 6e 74 |aveWaitN|extEvent|
|00001130| 20 3a 3d 20 54 72 61 70 | 41 76 61 69 6c 61 62 6c | := Trap|Availabl|
|00001140| 65 28 5f 57 61 69 74 4e | 65 78 74 45 76 65 6e 74 |e(_WaitN|extEvent|
|00001150| 2c 20 54 6f 6f 6c 54 72 | 61 70 29 3b 0d 0d 09 7b |, ToolTr|ap);...{|
|00001160| 20 69 6e 69 74 69 61 6c | 69 7a 65 20 6f 75 72 20 | initial|ize our |
|00001170| 63 6c 61 73 73 20 76 61 | 72 69 61 62 6c 65 73 20 |class va|riables |
|00001180| 7d 0d 09 66 43 75 72 44 | 6f 63 20 3a 3d 20 4e 49 |}..fCurD|oc := NI|
|00001190| 4c 3b 0d 09 66 44 6f 6e | 65 20 3a 3d 20 46 41 4c |L;..fDon|e := FAL|
|000011a0| 53 45 3b 0d 09 66 49 6e | 42 61 63 6b 67 72 6f 75 |SE;..fIn|Backgrou|
|000011b0| 6e 64 20 3a 3d 20 46 41 | 4c 53 45 3b 0d 09 66 4d |nd := FA|LSE;..fM|
|000011c0| 6f 75 73 65 52 67 6e 20 | 3a 3d 20 4e 49 4c 3b 0d |ouseRgn |:= NIL;.|
|000011d0| 09 66 57 68 69 63 68 57 | 69 6e 64 6f 77 20 3a 3d |.fWhichW|indow :=|
|000011e0| 20 4e 49 4c 3b 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 | NIL;.EN|D;..{$S |
|000011f0| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------|
|00001200| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001210| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 45 76 |--------|--+.|.Ev|
|00001220| 65 6e 74 4c 6f 6f 70 09 | 09 09 09 09 09 7c 0d 2b |entLoop.|.....|.+|
|00001230| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001250| 2d 2d 2d 7d 0d 50 52 4f | 43 45 44 55 52 45 20 54 |---}.PRO|CEDURE T|
|00001260| 41 70 70 6c 69 63 61 74 | 69 6f 6e 2e 45 76 65 6e |Applicat|ion.Even|
|00001270| 74 4c 6f 6f 70 3b 0d 56 | 41 52 0d 09 67 6f 74 45 |tLoop;.V|AR..gotE|
|00001280| 76 65 6e 74 3a 20 42 6f | 6f 6c 65 61 6e 3b 0d 09 |vent: Bo|olean;..|
|00001290| 61 6e 45 76 65 6e 74 3a | 20 45 76 65 6e 74 52 65 |anEvent:| EventRe|
|000012a0| 63 6f 72 64 3b 0d 42 45 | 47 49 4e 0d 0d 09 53 65 |cord;.BE|GIN...Se|
|000012b0| 74 55 70 3b 09 09 7b 20 | 63 61 6c 6c 20 73 65 74 |tUp;..{ |call set|
|000012c0| 75 70 20 72 6f 75 74 69 | 6e 65 20 7d 0d 09 44 6f |up routi|ne }..Do|
|000012d0| 49 64 6c 65 3b 09 09 7b | 20 64 6f 20 69 64 6c 65 |Idle;..{| do idle|
|000012e0| 20 6f 6e 63 65 20 7d 0d | 0d 09 57 48 49 4c 45 20 | once }.|..WHILE |
|000012f0| 28 66 44 6f 6e 65 20 3d | 20 46 41 4c 53 45 29 20 |(fDone =| FALSE) |
|00001300| 44 4f 20 42 45 47 49 4e | 0d 0d 09 09 7b 20 61 6c |DO BEGIN|....{ al|
|00001310| 77 61 79 73 20 73 65 74 | 20 75 70 20 66 57 68 69 |ways set| up fWhi|
|00001320| 63 68 57 69 6e 64 6f 77 | 20 62 65 66 6f 72 65 20 |chWindow| before |
|00001330| 64 6f 69 6e 67 20 61 6e | 79 74 68 69 6e 67 20 7d |doing an|ything }|
|00001340| 0d 09 09 66 57 68 69 63 | 68 57 69 6e 64 6f 77 20 |...fWhic|hWindow |
|00001350| 3a 3d 20 46 72 6f 6e 74 | 57 69 6e 64 6f 77 3b 0d |:= Front|Window;.|
|00001360| 09 09 49 46 20 28 66 57 | 68 69 63 68 57 69 6e 64 |..IF (fW|hichWind|
|00001370| 6f 77 20 3c 3e 20 6e 69 | 6c 29 20 74 68 65 6e 20 |ow <> ni|l) then |
|00001380| 62 65 67 69 6e 0d 09 09 | 09 7b 20 73 65 65 20 69 |begin...|.{ see i|
|00001390| 66 20 77 69 6e 64 6f 77 | 20 62 65 6c 6f 6e 67 73 |f window| belongs|
|000013a0| 20 74 6f 20 61 20 64 6f | 63 75 6d 65 6e 74 20 7d | to a do|cument }|
|000013b0| 0d 09 09 09 66 43 75 72 | 44 6f 63 20 3a 3d 20 66 |....fCur|Doc := f|
|000013c0| 44 6f 63 4c 69 73 74 2e | 46 69 6e 64 44 6f 63 28 |DocList.|FindDoc(|
|000013d0| 66 57 68 69 63 68 57 69 | 6e 64 6f 77 29 3b 0d 09 |fWhichWi|ndow);..|
|000013e0| 09 09 7b 20 6d 61 6b 65 | 20 73 75 72 65 20 77 65 |..{ make| sure we|
|000013f0| 20 61 6c 77 61 79 73 20 | 64 72 61 77 20 69 6e 74 | always |draw int|
|00001400| 6f 20 63 6f 72 72 65 63 | 74 20 77 69 6e 64 6f 77 |o correc|t window|
|00001410| 20 7d 0d 09 09 09 53 65 | 74 50 6f 72 74 28 66 57 | }....Se|tPort(fW|
|00001420| 68 69 63 68 57 69 6e 64 | 6f 77 29 3b 0d 09 09 45 |hichWind|ow);...E|
|00001430| 4e 44 20 45 4c 53 45 20 | 42 45 47 49 4e 0d 09 09 |ND ELSE |BEGIN...|
|00001440| 09 66 43 75 72 44 6f 63 | 20 3a 3d 20 6e 69 6c 3b |.fCurDoc| := nil;|
|00001450| 0d 09 09 45 4e 44 3b 0d | 0d 0d 09 09 44 6f 49 64 |...END;.|....DoId|
|00001460| 6c 65 3b 09 09 09 7b 20 | 63 61 6c 6c 20 69 64 6c |le;...{ |call idl|
|00001470| 65 20 74 69 6d 65 20 68 | 61 6e 64 6c 65 72 20 7d |e time h|andler }|
|00001480| 0d 0d 09 09 49 46 20 28 | 66 48 61 76 65 57 61 69 |....IF (|fHaveWai|
|00001490| 74 4e 65 78 74 45 76 65 | 6e 74 29 20 54 48 45 4e |tNextEve|nt) THEN|
|000014a0| 20 42 45 47 49 4e 0d 09 | 09 09 67 6f 74 45 76 65 | BEGIN..|..gotEve|
|000014b0| 6e 74 20 3a 3d 20 57 61 | 69 74 4e 65 78 74 45 76 |nt := Wa|itNextEv|
|000014c0| 65 6e 74 28 65 76 65 72 | 79 45 76 65 6e 74 2c 20 |ent(ever|yEvent, |
|000014d0| 61 6e 45 76 65 6e 74 2c | 20 53 6c 65 65 70 56 61 |anEvent,| SleepVa|
|000014e0| 6c 2c 20 66 4d 6f 75 73 | 65 52 67 6e 29 3b 0d 09 |l, fMous|eRgn);..|
|000014f0| 09 45 4e 44 20 45 4c 53 | 45 20 42 45 47 49 4e 0d |.END ELS|E BEGIN.|
|00001500| 09 09 09 53 79 73 74 65 | 6d 54 61 73 6b 3b 0d 09 |...Syste|mTask;..|
|00001510| 09 09 67 6f 74 45 76 65 | 6e 74 20 3a 3d 20 47 65 |..gotEve|nt := Ge|
|00001520| 74 4e 65 78 74 45 76 65 | 6e 74 28 65 76 65 72 79 |tNextEve|nt(every|
|00001530| 45 76 65 6e 74 2c 20 61 | 6e 45 76 65 6e 74 29 3b |Event, a|nEvent);|
|00001540| 0d 09 09 45 4e 44 3b 0d | 09 09 66 54 68 65 45 76 |...END;.|..fTheEv|
|00001550| 65 6e 74 20 3a 3d 20 61 | 6e 45 76 65 6e 74 3b 0d |ent := a|nEvent;.|
|00001560| 0d 09 09 7b 20 6d 61 6b | 65 20 73 75 72 65 20 77 |...{ mak|e sure w|
|00001570| 65 20 67 6f 74 20 61 20 | 72 65 61 6c 20 65 76 65 |e got a |real eve|
|00001580| 6e 74 20 7d 0d 09 09 49 | 46 20 67 6f 74 45 76 65 |nt }...I|F gotEve|
|00001590| 6e 74 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |nt THEN |BEGIN...|
|000015a0| 09 41 64 6a 75 73 74 43 | 75 72 73 6f 72 3b 0d 09 |.AdjustC|ursor;..|
|000015b0| 09 09 43 41 53 45 20 28 | 66 54 68 65 45 76 65 6e |..CASE (|fTheEven|
|000015c0| 74 2e 77 68 61 74 29 20 | 4f 46 0d 09 09 09 09 6d |t.what) |OF.....m|
|000015d0| 6f 75 73 65 44 6f 77 6e | 09 3a 20 48 64 6c 4d 6f |ouseDown|.: HdlMo|
|000015e0| 75 73 65 44 6f 77 6e 3b | 0d 09 09 09 09 6d 6f 75 |useDown;|.....mou|
|000015f0| 73 65 55 70 09 09 3a 20 | 48 64 6c 4d 6f 75 73 65 |seUp..: |HdlMouse|
|00001600| 55 70 3b 0d 09 09 09 09 | 6b 65 79 44 6f 77 6e 2c |Up;.....|keyDown,|
|00001610| 0d 09 09 09 09 61 75 74 | 6f 4b 65 79 09 09 3a 20 |.....aut|oKey..: |
|00001620| 48 64 6c 4b 65 79 44 6f | 77 6e 3b 0d 09 09 09 09 |HdlKeyDo|wn;.....|
|00001630| 75 70 64 61 74 65 45 76 | 74 09 3a 20 48 64 6c 55 |updateEv|t.: HdlU|
|00001640| 70 64 61 74 65 45 76 74 | 3b 0d 09 09 09 09 64 69 |pdateEvt|;.....di|
|00001650| 73 6b 45 76 74 09 09 3a | 20 48 64 6c 44 69 73 6b |skEvt..:| HdlDisk|
|00001660| 45 76 74 3b 0d 09 09 09 | 09 61 63 74 69 76 61 74 |Evt;....|.activat|
|00001670| 65 45 76 74 09 3a 20 48 | 64 6c 41 63 74 69 76 61 |eEvt.: H|dlActiva|
|00001680| 74 65 45 76 74 3b 0d 09 | 09 09 09 6b 4f 73 45 76 |teEvt;..|...kOsEv|
|00001690| 65 6e 74 20 09 3a 20 48 | 64 6c 4f 53 45 76 65 6e |ent .: H|dlOSEven|
|000016a0| 74 3b 0d 09 09 09 45 4e | 44 3b 20 7b 20 65 6e 64 |t;....EN|D; { end|
|000016b0| 20 73 77 69 74 63 68 20 | 28 66 54 68 65 45 76 65 | switch |(fTheEve|
|000016c0| 6e 74 2e 77 68 61 74 29 | 20 7d 0d 09 09 45 4e 44 |nt.what)| }...END|
|000016d0| 3b 20 7b 20 69 66 20 67 | 6f 74 45 76 65 6e 74 20 |; { if g|otEvent |
|000016e0| 7d 0d 09 09 41 64 6a 75 | 73 74 43 75 72 73 6f 72 |}...Adju|stCursor|
|000016f0| 3b 0d 09 45 4e 44 3b 20 | 7b 6f 66 20 45 76 65 6e |;..END; |{of Even|
|00001700| 74 4c 6f 6f 70 7d 0d 09 | 43 6c 65 61 6e 55 70 3b |tLoop}..|CleanUp;|
|00001710| 0d 45 4e 44 3b 0d 0d 7b | 24 53 20 4d 61 69 6e 7d |.END;..{|$S Main}|
|00001720| 0d 7b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.{------|--------|
|00001730| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001740| 2d 2d 2d 2d 2d 2b 0d 7c | 09 53 65 74 75 70 09 09 |-----+.||.Setup..|
|00001750| 09 09 09 09 09 7c 0d 2b | 2d 2d 2d 2d 2d 2d 2d 2d |.....|.+|--------|
|00001760| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001770| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 50 52 4f |--------|---}.PRO|
|00001780| 43 45 44 55 52 45 20 54 | 41 70 70 6c 69 63 61 74 |CEDURE T|Applicat|
|00001790| 69 6f 6e 2e 53 65 74 75 | 70 3b 09 09 7b 20 52 75 |ion.Setu|p;..{ Ru|
|000017a0| 6e 20 62 65 66 6f 72 65 | 20 65 76 65 6e 74 20 6c |n before| event l|
|000017b0| 6f 6f 70 20 73 74 61 72 | 74 73 20 7d 0d 42 45 47 |oop star|ts }.BEG|
|000017c0| 49 4e 0d 45 4e 44 3b 0d | 0d 7b 24 53 20 4d 61 69 |IN.END;.|.{$S Mai|
|000017d0| 6e 7d 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |n}.{----|--------|
|000017e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000017f0| 2d 2d 2d 2d 2d 2d 2d 2b | 0d 7c 09 43 6c 65 61 6e |-------+|.|.Clean|
|00001800| 55 70 09 09 09 09 09 09 | 09 7c 0d 2b 2d 2d 2d 2d |Up......|.|.+----|
|00001810| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001820| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 7d |--------|-------}|
|00001830| 0d 50 52 4f 43 45 44 55 | 52 45 20 54 41 70 70 6c |.PROCEDU|RE TAppl|
|00001840| 69 63 61 74 69 6f 6e 2e | 43 6c 65 61 6e 55 70 3b |ication.|CleanUp;|
|00001850| 09 09 7b 20 52 75 6e 20 | 61 74 20 65 6e 64 20 6f |..{ Run |at end o|
|00001860| 66 20 6c 6f 6f 70 20 7d | 0d 42 45 47 49 4e 0d 09 |f loop }|.BEGIN..|
|00001870| 55 6e 6c 6f 61 64 53 65 | 67 28 40 49 6e 69 74 53 |UnloadSe|g(@InitS|
|00001880| 65 67 29 3b 0d 45 4e 44 | 3b 0d 0d 7b 24 53 20 4d |eg);.END|;..{$S M|
|00001890| 61 69 6e 7d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ain}.{--|--------|
|000018a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 7c 09 45 78 69 |--------|-+.|.Exi|
|000018c0| 74 4c 6f 6f 70 09 09 09 | 09 09 09 7c 0d 2b 2d 2d |tLoop...|...|.+--|
|000018d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000018f0| 2d 7d 0d 50 52 4f 43 45 | 44 55 52 45 20 54 41 70 |-}.PROCE|DURE TAp|
|00001900| 70 6c 69 63 61 74 69 6f | 6e 2e 45 78 69 74 4c 6f |plicatio|n.ExitLo|
|00001910| 6f 70 3b 09 7b 20 43 61 | 6c 6c 20 74 68 69 73 20 |op;.{ Ca|ll this |
|00001920| 74 6f 20 65 78 69 74 20 | 6c 6f 6f 70 20 7d 0d 42 |to exit |loop }.B|
|00001930| 45 47 49 4e 0d 09 66 44 | 6f 6e 65 20 3a 3d 20 54 |EGIN..fD|one := T|
|00001940| 52 55 45 3b 0d 45 4e 44 | 3b 0d 0d 7b 24 53 20 4d |RUE;.END|;..{$S M|
|00001950| 61 69 6e 7d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ain}.{--|--------|
|00001960| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001970| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 7c 09 44 6f 49 |--------|-+.|.DoI|
|00001980| 64 6c 65 09 09 09 09 09 | 09 09 7c 0d 2b 2d 2d 2d |dle.....|..|.+---|
|00001990| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000019b0| 7d 0d 50 52 4f 43 45 44 | 55 52 45 20 54 41 70 70 |}.PROCED|URE TApp|
|000019c0| 6c 69 63 61 74 69 6f 6e | 2e 44 6f 49 64 6c 65 3b |lication|.DoIdle;|
|000019d0| 09 09 7b 20 49 64 6c 65 | 20 74 69 6d 65 20 68 61 |..{ Idle| time ha|
|000019e0| 6e 64 6c 65 72 20 28 62 | 6c 69 6e 6b 20 63 61 72 |ndler (b|link car|
|000019f0| 65 74 2c 20 62 61 63 6b | 67 72 6f 75 6e 64 20 74 |et, back|ground t|
|00001a00| 61 73 6b 73 29 20 7d 0d | 42 45 47 49 4e 0d 45 4e |asks) }.|BEGIN.EN|
|00001a10| 44 3b 0d 0d 7b 24 53 20 | 4d 61 69 6e 7d 0d 7b 2d |D;..{$S |Main}.{-|
|00001a20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a40| 2d 2d 2b 0d 7c 09 41 64 | 6a 75 73 74 4d 65 6e 75 |--+.|.Ad|justMenu|
|00001a50| 73 09 09 09 09 09 09 7c | 0d 2b 2d 2d 2d 2d 2d 2d |s......||.+------|
|00001a60| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001a70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 50 |--------|-----}.P|
|00001a80| 52 4f 43 45 44 55 52 45 | 20 54 41 70 70 6c 69 63 |ROCEDURE| TApplic|
|00001a90| 61 74 69 6f 6e 2e 41 64 | 6a 75 73 74 4d 65 6e 75 |ation.Ad|justMenu|
|00001aa0| 73 3b 09 7b 20 4d 65 6e | 75 20 55 70 64 61 74 65 |s;.{ Men|u Update|
|00001ab0| 72 20 72 6f 75 74 69 6e | 65 20 7d 0d 42 45 47 49 |r routin|e }.BEGI|
|00001ac0| 4e 0d 45 4e 44 3b 0d 0d | 7b 24 53 20 4d 61 69 6e |N.END;..|{$S Main|
|00001ad0| 7d 0d 7b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.{-----|--------|
|00001ae0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001af0| 2d 2d 2d 2d 2d 2d 2b 0d | 7c 09 48 64 6c 4f 53 45 |------+.||.HdlOSE|
|00001b00| 76 65 6e 74 09 09 09 09 | 09 09 7c 0d 2b 2d 2d 2d |vent....|..|.+---|
|00001b10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001b30| 7d 0d 50 52 4f 43 45 44 | 55 52 45 20 54 41 70 70 |}.PROCED|URE TApp|
|00001b40| 6c 69 63 61 74 69 6f 6e | 2e 48 64 6c 4f 53 45 76 |lication|.HdlOSEv|
|00001b50| 65 6e 74 3b 09 09 7b 20 | 43 61 6c 6c 73 20 44 6f |ent;..{ |Calls Do|
|00001b60| 53 75 73 70 65 6e 64 2c | 20 44 6f 52 65 73 75 6d |Suspend,| DoResum|
|00001b70| 65 20 61 6e 64 20 44 6f | 49 64 6c 65 20 61 73 20 |e and Do|Idle as |
|00001b80| 61 70 72 6f 70 6f 73 20 | 7d 0d 56 41 52 0d 09 64 |apropos |}.VAR..d|
|00001b90| 6f 43 6f 6e 76 65 72 74 | 3a 20 42 6f 6f 6c 65 61 |oConvert|: Boolea|
|00001ba0| 6e 3b 0d 09 65 76 54 79 | 70 65 3a 20 62 79 74 65 |n;..evTy|pe: byte|
|00001bb0| 3b 0d 42 45 47 49 4e 0d | 0d 09 7b 20 69 73 20 69 |;.BEGIN.|..{ is i|
|00001bc0| 74 20 61 20 6d 75 6c 74 | 69 66 69 6e 64 65 72 20 |t a mult|ifinder |
|00001bd0| 65 76 65 6e 74 3f 20 7d | 0d 09 65 76 54 79 70 65 |event? }|..evType|
|00001be0| 20 3a 3d 20 42 41 6e 64 | 28 42 52 6f 74 52 28 66 | := BAnd|(BRotR(f|
|00001bf0| 54 68 65 45 76 65 6e 74 | 2e 6d 65 73 73 61 67 65 |TheEvent|.message|
|00001c00| 2c 20 32 34 29 2c 24 30 | 30 46 46 29 3b 0d 09 43 |, 24),$0|0FF);..C|
|00001c10| 41 53 45 20 65 76 54 79 | 70 65 20 4f 46 09 09 7b |ASE evTy|pe OF..{|
|00001c20| 20 68 69 67 68 20 62 79 | 74 65 20 6f 66 20 6d 65 | high by|te of me|
|00001c30| 73 73 61 67 65 20 69 73 | 20 74 79 70 65 20 6f 66 |ssage is| type of|
|00001c40| 20 65 76 65 6e 74 20 7d | 0d 09 09 6b 4d 6f 75 73 | event }|...kMous|
|00001c50| 65 4d 6f 76 65 64 4d 65 | 73 73 61 67 65 20 3a 0d |eMovedMe|ssage :.|
|00001c60| 09 09 09 44 6f 49 64 6c | 65 3b 09 09 09 09 09 7b |...DoIdl|e;.....{|
|00001c70| 20 6d 6f 75 73 65 2d 6d | 6f 76 65 64 20 69 73 20 | mouse-m|oved is |
|00001c80| 61 6c 73 6f 20 61 6e 20 | 69 64 6c 65 20 65 76 65 |also an |idle eve|
|00001c90| 6e 74 20 7d 0d 09 09 6b | 53 75 73 70 65 6e 64 52 |nt }...k|SuspendR|
|00001ca0| 65 73 75 6d 65 4d 65 73 | 73 61 67 65 20 3a 20 42 |esumeMes|sage : B|
|00001cb0| 45 47 49 4e 0d 09 09 09 | 64 6f 43 6f 6e 76 65 72 |EGIN....|doConver|
|00001cc0| 74 20 3a 3d 20 28 42 41 | 6e 64 28 66 54 68 65 45 |t := (BA|nd(fTheE|
|00001cd0| 76 65 6e 74 2e 6d 65 73 | 73 61 67 65 2c 20 6b 43 |vent.mes|sage, kC|
|00001ce0| 6c 69 70 43 6f 6e 76 65 | 72 74 4d 61 73 6b 29 20 |lipConve|rtMask) |
|00001cf0| 3c 3e 20 30 29 3b 0d 09 | 09 09 66 49 6e 42 61 63 |<> 0);..|..fInBac|
|00001d00| 6b 67 72 6f 75 6e 64 20 | 3a 3d 20 28 42 41 6e 64 |kground |:= (BAnd|
|00001d10| 28 66 54 68 65 45 76 65 | 6e 74 2e 6d 65 73 73 61 |(fTheEve|nt.messa|
|00001d20| 67 65 2c 20 6b 52 65 73 | 75 6d 65 4d 61 73 6b 29 |ge, kRes|umeMask)|
|00001d30| 20 3d 20 30 29 3b 0d 09 | 09 09 49 46 20 28 66 49 | = 0);..|..IF (fI|
|00001d40| 6e 42 61 63 6b 67 72 6f | 75 6e 64 29 20 54 48 45 |nBackgro|und) THE|
|00001d50| 4e 0d 09 09 09 09 44 6f | 53 75 73 70 65 6e 64 28 |N.....Do|Suspend(|
|00001d60| 64 6f 43 6f 6e 76 65 72 | 74 29 0d 09 09 09 45 4c |doConver|t)....EL|
|00001d70| 53 45 0d 09 09 09 09 44 | 6f 52 65 73 75 6d 65 28 |SE.....D|oResume(|
|00001d80| 64 6f 43 6f 6e 76 65 72 | 74 29 3b 0d 09 09 45 4e |doConver|t);...EN|
|00001d90| 44 3b 20 7b 20 6b 53 75 | 73 70 65 6e 64 52 65 73 |D; { kSu|spendRes|
|00001da0| 75 6d 65 4d 65 73 73 61 | 67 65 20 7d 0d 09 45 4e |umeMessa|ge }..EN|
|00001db0| 44 3b 20 7b 20 43 41 53 | 45 20 53 74 61 74 65 6d |D; { CAS|E Statem|
|00001dc0| 65 6e 74 20 7d 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 |ent }.EN|D;..{$S |
|00001dd0| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------|
|00001de0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001df0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 48 64 |--------|--+.|.Hd|
|00001e00| 6c 4d 6f 75 73 65 44 6f | 77 6e 09 09 09 09 09 7c |lMouseDo|wn.....||
|00001e10| 0d 2b 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.+------|--------|
|00001e20| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00001e30| 2d 2d 2d 2d 2d 7d 0d 50 | 52 4f 43 45 44 55 52 45 |-----}.P|ROCEDURE|
|00001e40| 20 54 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 48 64 | TApplic|ation.Hd|
|00001e50| 6c 4d 6f 75 73 65 44 6f | 77 6e 3b 09 7b 20 43 61 |lMouseDo|wn;.{ Ca|
|00001e60| 6c 6c 73 20 44 6f 43 6f | 6e 74 65 6e 74 2c 20 44 |lls DoCo|ntent, D|
|00001e70| 6f 47 72 6f 77 2c 20 44 | 6f 5a 6f 6f 6d 2c 20 65 |oGrow, D|oZoom, e|
|00001e80| 74 63 20 7d 0d 56 41 52 | 0d 09 6d 52 65 73 75 6c |tc }.VAR|..mResul|
|00001e90| 74 3a 20 4c 6f 6e 67 69 | 6e 74 3b 0d 09 70 61 72 |t: Longi|nt;..par|
|00001ea0| 74 43 6f 64 65 3a 20 69 | 6e 74 65 67 65 72 3b 0d |tCode: i|nteger;.|
|00001eb0| 09 61 6e 45 76 65 6e 74 | 3a 20 45 76 65 6e 74 52 |.anEvent|: EventR|
|00001ec0| 65 63 6f 72 64 3b 0d 09 | 61 57 69 6e 64 6f 77 3a |ecord;..|aWindow:|
|00001ed0| 20 57 69 6e 64 6f 77 50 | 74 72 3b 0d 42 45 47 49 | WindowP|tr;.BEGI|
|00001ee0| 4e 0d 09 70 61 72 74 43 | 6f 64 65 20 3a 3d 20 46 |N..partC|ode := F|
|00001ef0| 69 6e 64 57 69 6e 64 6f | 77 28 66 54 68 65 45 76 |indWindo|w(fTheEv|
|00001f00| 65 6e 74 2e 77 68 65 72 | 65 2c 20 61 57 69 6e 64 |ent.wher|e, aWind|
|00001f10| 6f 77 29 3b 0d 09 66 57 | 68 69 63 68 57 69 6e 64 |ow);..fW|hichWind|
|00001f20| 6f 77 20 3a 3d 20 61 57 | 69 6e 64 6f 77 3b 0d 09 |ow := aW|indow;..|
|00001f30| 43 41 53 45 20 70 61 72 | 74 43 6f 64 65 20 4f 46 |CASE par|tCode OF|
|00001f40| 0d 09 09 69 6e 53 79 73 | 57 69 6e 64 6f 77 20 3a |...inSys|Window :|
|00001f50| 20 4d 6f 75 73 65 49 6e | 53 79 73 57 69 6e 64 6f | MouseIn|SysWindo|
|00001f60| 77 3b 0d 09 09 69 6e 4d | 65 6e 75 42 61 72 20 3a |w;...inM|enuBar :|
|00001f70| 20 42 45 47 49 4e 0d 09 | 09 09 41 64 6a 75 73 74 | BEGIN..|..Adjust|
|00001f80| 4d 65 6e 75 73 3b 0d 09 | 09 09 6d 52 65 73 75 6c |Menus;..|..mResul|
|00001f90| 74 20 3a 3d 20 4d 65 6e | 75 53 65 6c 65 63 74 28 |t := Men|uSelect(|
|00001fa0| 66 54 68 65 45 76 65 6e | 74 2e 77 68 65 72 65 29 |fTheEven|t.where)|
|00001fb0| 3b 0d 09 09 09 49 46 20 | 28 6d 52 65 73 75 6c 74 |;....IF |(mResult|
|00001fc0| 20 3c 3e 20 30 29 20 54 | 48 45 4e 0d 09 09 09 20 | <> 0) T|HEN.... |
|00001fd0| 20 44 6f 4d 65 6e 75 43 | 6f 6d 6d 61 6e 64 28 48 | DoMenuC|ommand(H|
|00001fe0| 69 57 72 64 28 6d 52 65 | 73 75 6c 74 29 2c 4c 6f |iWrd(mRe|sult),Lo|
|00001ff0| 57 72 64 28 6d 52 65 73 | 75 6c 74 29 29 3b 0d 09 |Wrd(mRes|ult));..|
|00002000| 09 45 4e 44 3b 0d 09 09 | 69 6e 47 6f 41 77 61 79 |.END;...|inGoAway|
|00002010| 20 3a 0d 09 09 09 44 6f | 47 6f 41 77 61 79 3b 0d | :....Do|GoAway;.|
|00002020| 09 09 69 6e 44 72 61 67 | 20 3a 0d 09 09 09 44 6f |..inDrag| :....Do|
|00002030| 44 72 61 67 3b 0d 09 09 | 69 6e 47 72 6f 77 20 3a |Drag;...|inGrow :|
|00002040| 0d 09 09 09 49 46 20 28 | 66 43 75 72 44 6f 63 20 |....IF (|fCurDoc |
|00002050| 3c 3e 20 4e 49 4c 29 20 | 54 48 45 4e 20 42 45 47 |<> NIL) |THEN BEG|
|00002060| 49 4e 0d 09 09 09 09 61 | 6e 45 76 65 6e 74 20 3a |IN.....a|nEvent :|
|00002070| 3d 20 66 54 68 65 45 76 | 65 6e 74 3b 0d 09 09 09 |= fTheEv|ent;....|
|00002080| 09 66 43 75 72 44 6f 63 | 2e 44 6f 47 72 6f 77 28 |.fCurDoc|.DoGrow(|
|00002090| 61 6e 45 76 65 6e 74 29 | 3b 0d 09 09 09 45 4e 44 |anEvent)|;....END|
|000020a0| 3b 0d 09 09 69 6e 5a 6f | 6f 6d 49 6e 2c 0d 09 09 |;...inZo|omIn,...|
|000020b0| 69 6e 5a 6f 6f 6d 4f 75 | 74 20 3a 0d 09 09 09 49 |inZoomOu|t :....I|
|000020c0| 46 20 28 28 54 72 61 63 | 6b 42 6f 78 28 66 57 68 |F ((Trac|kBox(fWh|
|000020d0| 69 63 68 57 69 6e 64 6f | 77 2c 20 66 54 68 65 45 |ichWindo|w, fTheE|
|000020e0| 76 65 6e 74 2e 77 68 65 | 72 65 2c 20 70 61 72 74 |vent.whe|re, part|
|000020f0| 43 6f 64 65 29 29 20 41 | 4e 44 0d 09 09 09 09 09 |Code)) A|ND......|
|00002100| 28 66 43 75 72 44 6f 63 | 20 3c 3e 20 4e 49 4c 29 |(fCurDoc| <> NIL)|
|00002110| 29 20 54 48 45 4e 0d 09 | 09 09 20 20 09 66 43 75 |) THEN..|.. .fCu|
|00002120| 72 44 6f 63 2e 44 6f 5a | 6f 6f 6d 28 70 61 72 74 |rDoc.DoZ|oom(part|
|00002130| 43 6f 64 65 29 3b 0d 09 | 09 69 6e 43 6f 6e 74 65 |Code);..|.inConte|
|00002140| 6e 74 20 3a 20 7b 20 49 | 66 20 77 69 6e 64 6f 77 |nt : { I|f window|
|00002150| 20 69 73 20 6e 6f 74 20 | 69 6e 20 66 72 6f 6e 74 | is not |in front|
|00002160| 2c 20 6d 61 6b 65 20 69 | 74 20 73 6f 20 7d 0d 09 |, make i|t so }..|
|00002170| 09 09 49 46 20 28 66 57 | 68 69 63 68 57 69 6e 64 |..IF (fW|hichWind|
|00002180| 6f 77 20 3c 3e 20 46 72 | 6f 6e 74 57 69 6e 64 6f |ow <> Fr|ontWindo|
|00002190| 77 29 20 54 48 45 4e 0d | 09 09 09 09 53 65 6c 65 |w) THEN.|....Sele|
|000021a0| 63 74 57 69 6e 64 6f 77 | 28 66 57 68 69 63 68 57 |ctWindow|(fWhichW|
|000021b0| 69 6e 64 6f 77 29 0d 09 | 09 09 45 4c 53 45 20 49 |indow)..|..ELSE I|
|000021c0| 46 20 28 66 43 75 72 44 | 6f 63 20 3c 3e 20 4e 49 |F (fCurD|oc <> NI|
|000021d0| 4c 29 20 54 48 45 4e 20 | 42 45 47 49 4e 0d 09 09 |L) THEN |BEGIN...|
|000021e0| 09 09 61 6e 45 76 65 6e | 74 20 3a 3d 20 66 54 68 |..anEven|t := fTh|
|000021f0| 65 45 76 65 6e 74 3b 0d | 09 09 09 09 66 43 75 72 |eEvent;.|....fCur|
|00002200| 44 6f 63 2e 44 6f 43 6f | 6e 74 65 6e 74 28 61 6e |Doc.DoCo|ntent(an|
|00002210| 45 76 65 6e 74 29 3b 0d | 09 09 09 45 4e 44 3b 0d |Event);.|...END;.|
|00002220| 09 45 4e 44 3b 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 |.END;.EN|D;..{$S |
|00002230| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------|
|00002240| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002250| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 48 64 |--------|--+.|.Hd|
|00002260| 6c 4b 65 79 44 6f 77 6e | 09 09 09 09 09 09 7c 0d |lKeyDown|......|.|
|00002270| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------|
|00002280| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002290| 2d 2d 2d 2d 7d 0d 50 52 | 4f 43 45 44 55 52 45 20 |----}.PR|OCEDURE |
|000022a0| 54 41 70 70 6c 69 63 61 | 74 69 6f 6e 2e 48 64 6c |TApplica|tion.Hdl|
|000022b0| 4b 65 79 44 6f 77 6e 3b | 09 09 7b 20 61 6c 73 6f |KeyDown;|..{ also|
|000022c0| 20 63 61 6c 6c 65 64 20 | 66 6f 72 20 61 75 74 6f | called |for auto|
|000022d0| 6b 65 79 20 65 76 65 6e | 74 73 20 7d 0d 56 41 52 |key even|ts }.VAR|
|000022e0| 0d 09 6b 65 79 3a 20 63 | 68 61 72 3b 0d 09 6d 52 |..key: c|har;..mR|
|000022f0| 65 73 75 6c 74 3a 20 6c | 6f 6e 67 69 6e 74 3b 0d |esult: l|ongint;.|
|00002300| 09 61 6e 45 76 65 6e 74 | 3a 20 45 76 65 6e 74 52 |.anEvent|: EventR|
|00002310| 65 63 6f 72 64 3b 0d 42 | 45 47 49 4e 0d 09 6b 65 |ecord;.B|EGIN..ke|
|00002320| 79 20 3a 3d 20 63 68 61 | 72 28 42 41 6e 64 28 66 |y := cha|r(BAnd(f|
|00002330| 54 68 65 45 76 65 6e 74 | 2e 6d 65 73 73 61 67 65 |TheEvent|.message|
|00002340| 2c 20 63 68 61 72 43 6f | 64 65 4d 61 73 6b 29 29 |, charCo|deMask))|
|00002350| 3b 0d 09 49 46 20 28 28 | 42 41 6e 64 28 66 54 68 |;..IF ((|BAnd(fTh|
|00002360| 65 45 76 65 6e 74 2e 6d | 6f 64 69 66 69 65 72 73 |eEvent.m|odifiers|
|00002370| 2c 20 63 6d 64 4b 65 79 | 29 20 3c 3e 20 30 29 20 |, cmdKey|) <> 0) |
|00002380| 41 4e 44 20 28 66 54 68 | 65 45 76 65 6e 74 2e 77 |AND (fTh|eEvent.w|
|00002390| 68 61 74 20 3d 20 6b 65 | 79 44 6f 77 6e 29 29 20 |hat = ke|yDown)) |
|000023a0| 54 48 45 4e 20 42 45 47 | 49 4e 0d 09 09 7b 20 6f |THEN BEG|IN...{ o|
|000023b0| 6e 6c 79 20 64 6f 20 63 | 6f 6d 6d 61 6e 64 20 6b |nly do c|ommand k|
|000023c0| 65 79 73 20 69 66 20 77 | 65 20 61 72 65 20 6e 6f |eys if w|e are no|
|000023d0| 74 20 61 75 74 6f 6b 65 | 79 69 6e 67 20 7d 0d 09 |t autoke|ying }..|
|000023e0| 09 41 64 6a 75 73 74 4d | 65 6e 75 73 3b 09 09 09 |.AdjustM|enus;...|
|000023f0| 09 09 7b 20 6d 61 6b 65 | 20 73 75 72 65 20 6d 65 |..{ make| sure me|
|00002400| 6e 75 73 20 61 72 65 20 | 75 70 20 74 6f 20 64 61 |nus are |up to da|
|00002410| 74 65 20 7d 0d 09 09 6d | 52 65 73 75 6c 74 20 3a |te }...m|Result :|
|00002420| 3d 20 4d 65 6e 75 4b 65 | 79 28 6b 65 79 29 3b 0d |= MenuKe|y(key);.|
|00002430| 09 09 49 46 20 28 6d 52 | 65 73 75 6c 74 20 3c 3e |..IF (mR|esult <>|
|00002440| 20 30 29 20 54 48 45 4e | 20 42 45 47 49 4e 09 7b | 0) THEN| BEGIN.{|
|00002450| 20 69 66 20 69 74 20 77 | 61 73 6e 27 74 20 61 20 | if it w|asn't a |
|00002460| 6d 65 6e 75 20 6b 65 79 | 2c 20 70 61 73 73 20 69 |menu key|, pass i|
|00002470| 74 20 74 68 72 6f 75 67 | 68 20 7d 0d 09 09 09 44 |t throug|h }....D|
|00002480| 6f 4d 65 6e 75 43 6f 6d | 6d 61 6e 64 28 48 69 57 |oMenuCom|mand(HiW|
|00002490| 72 64 28 6d 52 65 73 75 | 6c 74 29 2c 20 4c 6f 57 |rd(mResu|lt), LoW|
|000024a0| 72 64 28 6d 52 65 73 75 | 6c 74 29 29 3b 0d 09 09 |rd(mResu|lt));...|
|000024b0| 45 4e 44 3b 0d 09 45 4e | 44 20 45 4c 53 45 20 42 |END;..EN|D ELSE B|
|000024c0| 45 47 49 4e 0d 09 09 49 | 46 20 28 66 43 75 72 44 |EGIN...I|F (fCurD|
|000024d0| 6f 63 20 3c 3e 20 6e 69 | 6c 29 20 54 48 45 4e 20 |oc <> ni|l) THEN |
|000024e0| 42 45 47 49 4e 0d 09 09 | 09 61 6e 45 76 65 6e 74 |BEGIN...|.anEvent|
|000024f0| 20 3a 3d 20 66 54 68 65 | 45 76 65 6e 74 3b 0d 09 | := fThe|Event;..|
|00002500| 09 20 20 66 43 75 72 44 | 6f 63 2e 44 6f 4b 65 79 |. fCurD|oc.DoKey|
|00002510| 44 6f 77 6e 28 61 6e 45 | 76 65 6e 74 29 3b 0d 09 |Down(anE|vent);..|
|00002520| 09 45 4e 44 3b 0d 09 45 | 4e 44 3b 0d 45 4e 44 3b |.END;..E|ND;.END;|
|00002530| 0d 0d 7b 24 53 20 4d 61 | 69 6e 7d 0d 7b 2d 2d 2d |..{$S Ma|in}.{---|
|00002540| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002560| 2b 0d 7c 09 48 64 6c 41 | 63 74 69 76 61 74 65 45 |+.|.HdlA|ctivateE|
|00002570| 76 74 09 09 09 09 09 7c | 0d 2b 2d 2d 2d 2d 2d 2d |vt.....||.+------|
|00002580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 7d 0d 50 |--------|-----}.P|
|000025a0| 52 4f 43 45 44 55 52 45 | 20 54 41 70 70 6c 69 63 |ROCEDURE| TApplic|
|000025b0| 61 74 69 6f 6e 2e 48 64 | 6c 41 63 74 69 76 61 74 |ation.Hd|lActivat|
|000025c0| 65 45 76 74 3b 09 7b 20 | 68 61 6e 64 6c 65 73 20 |eEvt;.{ |handles |
|000025d0| 73 65 74 75 70 2c 20 61 | 6e 64 20 63 61 6c 6c 73 |setup, a|nd calls|
|000025e0| 20 44 6f 41 63 74 69 76 | 61 74 65 20 28 62 65 6c | DoActiv|ate (bel|
|000025f0| 6f 77 29 20 7d 0d 42 45 | 47 49 4e 0d 09 7b 20 65 |ow) }.BE|GIN..{ e|
|00002600| 76 65 6e 74 20 72 65 63 | 6f 72 64 20 63 6f 6e 74 |vent rec|ord cont|
|00002610| 61 69 6e 73 20 77 69 6e | 64 6f 77 20 70 74 72 20 |ains win|dow ptr |
|00002620| 7d 0d 09 66 57 68 69 63 | 68 57 69 6e 64 6f 77 20 |}..fWhic|hWindow |
|00002630| 3a 3d 20 57 69 6e 64 6f | 77 50 74 72 28 66 54 68 |:= Windo|wPtr(fTh|
|00002640| 65 45 76 65 6e 74 2e 6d | 65 73 73 61 67 65 29 3b |eEvent.m|essage);|
|00002650| 0d 0d 09 7b 20 73 65 65 | 20 69 66 20 77 69 6e 64 |...{ see| if wind|
|00002660| 6f 77 20 62 65 6c 6f 6e | 67 73 20 74 6f 20 61 20 |ow belon|gs to a |
|00002670| 64 6f 63 75 6d 65 6e 74 | 20 7d 0d 09 66 43 75 72 |document| }..fCur|
|00002680| 44 6f 63 20 3a 3d 20 66 | 44 6f 63 4c 69 73 74 2e |Doc := f|DocList.|
|00002690| 46 69 6e 64 44 6f 63 28 | 66 57 68 69 63 68 57 69 |FindDoc(|fWhichWi|
|000026a0| 6e 64 6f 77 29 3b 0d 09 | 53 65 74 50 6f 72 74 28 |ndow);..|SetPort(|
|000026b0| 66 57 68 69 63 68 57 69 | 6e 64 6f 77 29 3b 0d 0d |fWhichWi|ndow);..|
|000026c0| 09 49 46 20 28 66 43 75 | 72 44 6f 63 20 3c 3e 20 |.IF (fCu|rDoc <> |
|000026d0| 4e 49 4c 29 20 54 48 45 | 4e 20 42 45 47 49 4e 0d |NIL) THE|N BEGIN.|
|000026e0| 09 09 66 43 75 72 44 6f | 63 2e 44 6f 41 63 74 69 |..fCurDo|c.DoActi|
|000026f0| 76 61 74 65 28 42 41 6e | 64 28 66 54 68 65 45 76 |vate(BAn|d(fTheEv|
|00002700| 65 6e 74 2e 6d 6f 64 69 | 66 69 65 72 73 2c 20 61 |ent.modi|fiers, a|
|00002710| 63 74 69 76 65 46 6c 61 | 67 29 20 3c 3e 20 30 29 |ctiveFla|g) <> 0)|
|00002720| 3b 0d 09 45 4e 44 3b 0d | 45 4e 44 3b 0d 0d 7b 24 |;..END;.|END;..{$|
|00002730| 53 20 4d 61 69 6e 7d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |S Main}.|{-------|
|00002740| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002750| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2b 0d 7c 09 |--------|----+.|.|
|00002760| 48 64 6c 55 70 64 61 74 | 65 45 76 74 09 09 09 09 |HdlUpdat|eEvt....|
|00002770| 09 7c 0d 2b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.|.+----|--------|
|00002780| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002790| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 50 52 4f 43 45 44 55 |-------}|.PROCEDU|
|000027a0| 52 45 20 54 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |RE TAppl|ication.|
|000027b0| 48 64 6c 55 70 64 61 74 | 65 45 76 74 3b 09 7b 20 |HdlUpdat|eEvt;.{ |
|000027c0| 68 61 6e 64 6c 65 73 20 | 73 65 74 75 70 2c 20 61 |handles |setup, a|
|000027d0| 6e 64 20 63 61 6c 6c 73 | 20 44 6f 55 70 64 61 74 |nd calls| DoUpdat|
|000027e0| 65 20 28 62 65 6c 6f 77 | 29 20 7d 0d 42 45 47 49 |e (below|) }.BEGI|
|000027f0| 4e 0d 09 7b 20 65 76 65 | 6e 74 20 72 65 63 6f 72 |N..{ eve|nt recor|
|00002800| 64 20 63 6f 6e 74 61 69 | 6e 73 20 77 69 6e 64 6f |d contai|ns windo|
|00002810| 77 20 70 74 72 20 7d 0d | 09 66 57 68 69 63 68 57 |w ptr }.|.fWhichW|
|00002820| 69 6e 64 6f 77 20 3a 3d | 20 57 69 6e 64 6f 77 50 |indow :=| WindowP|
|00002830| 74 72 28 66 54 68 65 45 | 76 65 6e 74 2e 6d 65 73 |tr(fTheE|vent.mes|
|00002840| 73 61 67 65 29 3b 0d 0d | 09 7b 20 73 65 65 20 69 |sage);..|.{ see i|
|00002850| 66 20 77 69 6e 64 6f 77 | 20 62 65 6c 6f 6e 67 73 |f window| belongs|
|00002860| 20 74 6f 20 61 20 64 6f | 63 75 6d 65 6e 74 20 7d | to a do|cument }|
|00002870| 0d 09 66 43 75 72 44 6f | 63 20 3a 3d 20 66 44 6f |..fCurDo|c := fDo|
|00002880| 63 4c 69 73 74 2e 46 69 | 6e 64 44 6f 63 28 66 57 |cList.Fi|ndDoc(fW|
|00002890| 68 69 63 68 57 69 6e 64 | 6f 77 29 3b 0d 09 53 65 |hichWind|ow);..Se|
|000028a0| 74 50 6f 72 74 28 66 57 | 68 69 63 68 57 69 6e 64 |tPort(fW|hichWind|
|000028b0| 6f 77 29 3b 0d 0d 09 49 | 46 20 28 66 43 75 72 44 |ow);...I|F (fCurD|
|000028c0| 6f 63 20 3c 3e 20 4e 49 | 4c 29 20 54 48 45 4e 20 |oc <> NI|L) THEN |
|000028d0| 42 45 47 49 4e 0d 09 09 | 66 43 75 72 44 6f 63 2e |BEGIN...|fCurDoc.|
|000028e0| 44 6f 55 70 64 61 74 65 | 3b 0d 09 45 4e 44 3b 0d |DoUpdate|;..END;.|
|000028f0| 45 4e 44 3b 0d 0d 7b 24 | 53 20 4d 61 69 6e 7d 0d |END;..{$|S Main}.|
|00002900| 7b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |{-------|--------|
|00002910| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002920| 2d 2d 2d 2d 2b 0d 7c 09 | 48 64 6c 4d 6f 75 73 65 |----+.|.|HdlMouse|
|00002930| 55 70 09 09 09 09 09 09 | 7c 0d 2b 2d 2d 2d 2d 2d |Up......||.+-----|
|00002940| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002950| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 7d 0d |--------|------}.|
|00002960| 50 52 4f 43 45 44 55 52 | 45 20 54 41 70 70 6c 69 |PROCEDUR|E TAppli|
|00002970| 63 61 74 69 6f 6e 2e 48 | 64 6c 4d 6f 75 73 65 55 |cation.H|dlMouseU|
|00002980| 70 3b 0d 42 45 47 49 4e | 0d 45 4e 44 3b 0d 0d 7b |p;.BEGIN|.END;..{|
|00002990| 24 53 20 4d 61 69 6e 7d | 0d 7b 2d 2d 2d 2d 2d 2d |$S Main}|.{------|
|000029a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 0d 7c |--------|-----+.||
|000029c0| 09 48 64 6c 44 69 73 6b | 45 76 74 09 09 09 09 09 |.HdlDisk|Evt.....|
|000029d0| 09 7c 0d 2b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |.|.+----|--------|
|000029e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000029f0| 2d 2d 2d 2d 2d 2d 2d 7d | 0d 50 52 4f 43 45 44 55 |-------}|.PROCEDU|
|00002a00| 52 45 20 54 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |RE TAppl|ication.|
|00002a10| 48 64 6c 44 69 73 6b 45 | 76 74 3b 0d 42 45 47 49 |HdlDiskE|vt;.BEGI|
|00002a20| 4e 0d 45 4e 44 3b 0d 0d | 7b 24 53 20 4d 61 69 6e |N.END;..|{$S Main|
|00002a30| 7d 0d 7b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |}.{-----|--------|
|00002a40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a50| 2d 2d 2d 2d 2d 2d 2b 0d | 7c 09 4d 6f 75 73 65 49 |------+.||.MouseI|
|00002a60| 6e 53 79 73 57 69 6e 64 | 6f 77 09 09 09 09 7c 0d |nSysWind|ow....|.|
|00002a70| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------|
|00002a80| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002a90| 2d 2d 2d 2d 7d 0d 50 52 | 4f 43 45 44 55 52 45 20 |----}.PR|OCEDURE |
|00002aa0| 54 41 70 70 6c 69 63 61 | 74 69 6f 6e 2e 4d 6f 75 |TApplica|tion.Mou|
|00002ab0| 73 65 49 6e 53 79 73 57 | 69 6e 64 6f 77 3b 0d 56 |seInSysW|indow;.V|
|00002ac0| 41 52 0d 09 61 6e 45 76 | 65 6e 74 3a 20 45 76 65 |AR..anEv|ent: Eve|
|00002ad0| 6e 74 52 65 63 6f 72 64 | 3b 0d 42 45 47 49 4e 0d |ntRecord|;.BEGIN.|
|00002ae0| 09 61 6e 45 76 65 6e 74 | 20 3a 3d 20 66 54 68 65 |.anEvent| := fThe|
|00002af0| 45 76 65 6e 74 3b 0d 09 | 53 79 73 74 65 6d 43 6c |Event;..|SystemCl|
|00002b00| 69 63 6b 28 61 6e 45 76 | 65 6e 74 2c 66 57 68 69 |ick(anEv|ent,fWhi|
|00002b10| 63 68 57 69 6e 64 6f 77 | 29 3b 0d 45 4e 44 3b 0d |chWindow|);.END;.|
|00002b20| 0d 7b 24 53 20 4d 61 69 | 6e 7d 0d 7b 2d 2d 2d 2d |.{$S Mai|n}.{----|
|00002b30| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2b |--------|-------+|
|00002b50| 0d 7c 09 44 6f 44 72 61 | 67 09 09 09 09 09 09 09 |.|.DoDra|g.......|
|00002b60| 7c 0d 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d ||.+-----|--------|
|00002b70| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002b80| 2d 2d 2d 2d 2d 2d 7d 0d | 50 52 4f 43 45 44 55 52 |------}.|PROCEDUR|
|00002b90| 45 20 54 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 44 |E TAppli|cation.D|
|00002ba0| 6f 44 72 61 67 3b 0d 42 | 45 47 49 4e 0d 09 44 72 |oDrag;.B|EGIN..Dr|
|00002bb0| 61 67 57 69 6e 64 6f 77 | 28 66 57 68 69 63 68 57 |agWindow|(fWhichW|
|00002bc0| 69 6e 64 6f 77 2c 20 66 | 54 68 65 45 76 65 6e 74 |indow, f|TheEvent|
|00002bd0| 2e 77 68 65 72 65 2c 20 | 73 63 72 65 65 6e 42 69 |.where, |screenBi|
|00002be0| 74 73 2e 62 6f 75 6e 64 | 73 29 3b 0d 45 4e 44 3b |ts.bound|s);.END;|
|00002bf0| 0d 0d 7b 24 53 20 4d 61 | 69 6e 7d 0d 7b 2d 2d 2d |..{$S Ma|in}.{---|
|00002c00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c10| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c20| 2b 0d 7c 09 44 6f 47 6f | 41 77 61 79 09 09 09 09 |+.|.DoGo|Away....|
|00002c30| 09 09 7c 0d 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|.+---|--------|
|00002c40| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002c50| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 50 52 4f 43 45 44 |--------|}.PROCED|
|00002c60| 55 52 45 20 54 41 70 70 | 6c 69 63 61 74 69 6f 6e |URE TApp|lication|
|00002c70| 2e 44 6f 47 6f 41 77 61 | 79 3b 0d 56 41 52 0d 09 |.DoGoAwa|y;.VAR..|
|00002c80| 61 57 69 6e 64 6f 77 3a | 20 57 69 6e 64 6f 77 50 |aWindow:| WindowP|
|00002c90| 65 65 6b 3b 0d 42 45 47 | 49 4e 0d 09 49 46 20 28 |eek;.BEG|IN..IF (|
|00002ca0| 54 72 61 63 6b 47 6f 41 | 77 61 79 28 66 57 68 69 |TrackGoA|way(fWhi|
|00002cb0| 63 68 57 69 6e 64 6f 77 | 2c 20 66 54 68 65 45 76 |chWindow|, fTheEv|
|00002cc0| 65 6e 74 2e 77 68 65 72 | 65 29 29 20 54 48 45 4e |ent.wher|e)) THEN|
|00002cd0| 20 42 45 47 49 4e 0d 09 | 09 49 46 20 28 66 43 75 | BEGIN..|.IF (fCu|
|00002ce0| 72 44 6f 63 20 3c 3e 20 | 4e 49 4c 29 20 54 48 45 |rDoc <> |NIL) THE|
|00002cf0| 4e 20 42 45 47 49 4e 0d | 09 09 09 66 44 6f 63 4c |N BEGIN.|...fDocL|
|00002d00| 69 73 74 2e 52 65 6d 6f | 76 65 44 6f 63 28 66 43 |ist.Remo|veDoc(fC|
|00002d10| 75 72 44 6f 63 29 3b 0d | 09 09 09 66 43 75 72 44 |urDoc);.|...fCurD|
|00002d20| 6f 63 2e 46 72 65 65 3b | 09 7b 54 44 6f 63 75 6d |oc.Free;|.{TDocum|
|00002d30| 65 6e 74 2e 46 72 65 65 | 20 64 69 73 70 6f 73 65 |ent.Free| dispose|
|00002d40| 73 20 6f 66 20 77 69 6e | 64 6f 77 7d 0d 09 09 45 |s of win|dow}...E|
|00002d50| 4e 44 20 45 4c 53 45 20 | 42 45 47 49 4e 0d 09 09 |ND ELSE |BEGIN...|
|00002d60| 09 61 57 69 6e 64 6f 77 | 20 3a 3d 20 57 69 6e 64 |.aWindow| := Wind|
|00002d70| 6f 77 50 65 65 6b 28 66 | 57 68 69 63 68 57 69 6e |owPeek(f|WhichWin|
|00002d80| 64 6f 77 29 3b 0d 09 09 | 09 43 6c 6f 73 65 44 65 |dow);...|.CloseDe|
|00002d90| 73 6b 41 63 63 28 61 57 | 69 6e 64 6f 77 5e 2e 77 |skAcc(aW|indow^.w|
|00002da0| 69 6e 64 6f 77 4b 69 6e | 64 29 3b 0d 09 09 45 4e |indowKin|d);...EN|
|00002db0| 44 3b 0d 09 09 0d 09 09 | 7b 20 6d 61 6b 65 20 73 |D;......|{ make s|
|00002dc0| 75 72 65 20 6f 75 72 20 | 63 75 72 72 65 6e 74 20 |ure our |current |
|00002dd0| 64 6f 63 75 6d 65 6e 74 | 2f 77 69 6e 64 6f 77 20 |document|/window |
|00002de0| 72 65 66 65 72 65 6e 63 | 65 73 20 61 72 65 20 76 |referenc|es are v|
|00002df0| 61 6c 69 64 20 7d 0d 09 | 09 66 57 68 69 63 68 57 |alid }..|.fWhichW|
|00002e00| 69 6e 64 6f 77 20 3a 3d | 20 46 72 6f 6e 74 57 69 |indow :=| FrontWi|
|00002e10| 6e 64 6f 77 3b 0d 09 09 | 49 46 20 28 66 57 68 69 |ndow;...|IF (fWhi|
|00002e20| 63 68 57 69 6e 64 6f 77 | 20 3c 3e 20 4e 49 4c 29 |chWindow| <> NIL)|
|00002e30| 20 54 48 45 4e 20 42 45 | 47 49 4e 0d 09 09 09 66 | THEN BE|GIN....f|
|00002e40| 43 75 72 44 6f 63 20 3a | 3d 20 66 44 6f 63 4c 69 |CurDoc :|= fDocLi|
|00002e50| 73 74 2e 46 69 6e 64 44 | 6f 63 28 66 57 68 69 63 |st.FindD|oc(fWhic|
|00002e60| 68 57 69 6e 64 6f 77 29 | 3b 0d 09 09 09 53 65 74 |hWindow)|;....Set|
|00002e70| 50 6f 72 74 28 66 57 68 | 69 63 68 57 69 6e 64 6f |Port(fWh|ichWindo|
|00002e80| 77 29 3b 0d 09 09 45 4e | 44 20 45 4c 53 45 0d 09 |w);...EN|D ELSE..|
|00002e90| 09 09 66 43 75 72 44 6f | 63 20 3a 3d 20 4e 49 4c |..fCurDo|c := NIL|
|00002ea0| 3b 0d 0d 09 45 4e 44 3b | 0d 45 4e 44 3b 0d 0d 7b |;...END;|.END;..{|
|00002eb0| 24 53 20 4d 61 69 6e 7d | 0d 7b 2d 2d 2d 2d 2d 2d |$S Main}|.{------|
|00002ec0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002ed0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 0d 7c |--------|-----+.||
|00002ee0| 09 41 64 6a 75 73 74 43 | 75 72 73 6f 72 09 09 09 |.AdjustC|ursor...|
|00002ef0| 09 09 7c 0d 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|.+---|--------|
|00002f00| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002f10| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 50 52 4f 43 45 44 |--------|}.PROCED|
|00002f20| 55 52 45 20 54 41 70 70 | 6c 69 63 61 74 69 6f 6e |URE TApp|lication|
|00002f30| 2e 41 64 6a 75 73 74 43 | 75 72 73 6f 72 3b 09 7b |.AdjustC|ursor;.{|
|00002f40| 20 63 75 72 73 6f 72 20 | 61 64 6a 75 73 74 20 72 | cursor |adjust r|
|00002f50| 6f 75 74 69 6e 65 2c 20 | 73 68 6f 75 6c 64 20 73 |outine, |should s|
|00002f60| 65 74 75 70 20 6d 6f 75 | 73 65 52 67 6e 20 7d 0d |etup mou|seRgn }.|
|00002f70| 42 45 47 49 4e 0d 45 4e | 44 3b 0d 0d 7b 24 53 20 |BEGIN.EN|D;..{$S |
|00002f80| 4d 61 69 6e 7d 0d 7b 2d | 2d 2d 2d 2d 2d 2d 2d 2d |Main}.{-|--------|
|00002f90| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fa0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2b 0d 7c 09 44 6f |--------|--+.|.Do|
|00002fb0| 4d 65 6e 75 43 6f 6d 6d | 61 6e 64 09 09 09 09 09 |MenuComm|and.....|
|00002fc0| 7c 0d 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d ||.+-----|--------|
|00002fd0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00002fe0| 2d 2d 2d 2d 2d 2d 7d 0d | 50 52 4f 43 45 44 55 52 |------}.|PROCEDUR|
|00002ff0| 45 20 54 41 70 70 6c 69 | 63 61 74 69 6f 6e 2e 44 |E TAppli|cation.D|
|00003000| 6f 4d 65 6e 75 43 6f 6d | 6d 61 6e 64 28 6d 65 6e |oMenuCom|mand(men|
|00003010| 75 49 44 2c 6d 65 6e 75 | 49 74 65 6d 3a 20 69 6e |uID,menu|Item: in|
|00003020| 74 65 67 65 72 29 3b 0d | 42 45 47 49 4e 0d 45 4e |teger);.|BEGIN.EN|
|00003030| 44 3b 0d 0d 7b 24 53 20 | 4d 61 69 6e 7d 0d 7b 2d |D;..{$S |Main}.{-|
|00003040| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003050| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003060| 2d 2d 2b 0d 7c 09 44 6f | 53 75 73 70 65 6e 64 09 |--+.|.Do|Suspend.|
|00003070| 09 09 09 09 09 7c 0d 2b | 2d 2d 2d 2d 2d 2d 2d 2d |.....|.+|--------|
|00003080| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003090| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 50 52 4f |--------|---}.PRO|
|000030a0| 43 45 44 55 52 45 20 54 | 41 70 70 6c 69 63 61 74 |CEDURE T|Applicat|
|000030b0| 69 6f 6e 2e 44 6f 53 75 | 73 70 65 6e 64 28 56 41 |ion.DoSu|spend(VA|
|000030c0| 52 20 64 6f 43 6c 69 70 | 43 6f 6e 76 65 72 74 3a |R doClip|Convert:|
|000030d0| 42 6f 6f 6c 65 61 6e 29 | 3b 0d 42 45 47 49 4e 0d |Boolean)|;.BEGIN.|
|000030e0| 09 64 6f 43 6c 69 70 43 | 6f 6e 76 65 72 74 20 3a |.doClipC|onvert :|
|000030f0| 3d 20 46 41 4c 53 45 3b | 0d 09 49 46 20 28 66 43 |= FALSE;|..IF (fC|
|00003100| 75 72 44 6f 63 20 3c 3e | 20 4e 49 4c 29 20 54 48 |urDoc <>| NIL) TH|
|00003110| 45 4e 0d 09 20 20 66 43 | 75 72 44 6f 63 2e 44 6f |EN.. fC|urDoc.Do|
|00003120| 41 63 74 69 76 61 74 65 | 28 4e 4f 54 20 28 66 49 |Activate|(NOT (fI|
|00003130| 6e 42 61 63 6b 67 72 6f | 75 6e 64 29 29 3b 0d 45 |nBackgro|und));.E|
|00003140| 4e 44 3b 0d 0d 7b 24 53 | 20 4d 61 69 6e 7d 0d 7b |ND;..{$S| Main}.{|
|00003150| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003160| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003170| 2d 2d 2d 2b 0d 7c 09 44 | 6f 52 65 73 75 6d 65 09 |---+.|.D|oResume.|
|00003180| 09 09 09 09 09 7c 0d 2b | 2d 2d 2d 2d 2d 2d 2d 2d |.....|.+|--------|
|00003190| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000031a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 7d 0d 50 52 4f |--------|---}.PRO|
|000031b0| 43 45 44 55 52 45 20 54 | 41 70 70 6c 69 63 61 74 |CEDURE T|Applicat|
|000031c0| 69 6f 6e 2e 44 6f 52 65 | 73 75 6d 65 28 56 41 52 |ion.DoRe|sume(VAR|
|000031d0| 20 64 6f 43 6c 69 70 43 | 6f 6e 76 65 72 74 3a 42 | doClipC|onvert:B|
|000031e0| 6f 6f 6c 65 61 6e 29 3b | 0d 42 45 47 49 4e 0d 09 |oolean);|.BEGIN..|
|000031f0| 64 6f 43 6c 69 70 43 6f | 6e 76 65 72 74 20 3a 3d |doClipCo|nvert :=|
|00003200| 20 46 41 4c 53 45 3b 0d | 09 49 46 20 28 66 43 75 | FALSE;.|.IF (fCu|
|00003210| 72 44 6f 63 20 3c 3e 20 | 4e 49 4c 29 20 54 48 45 |rDoc <> |NIL) THE|
|00003220| 4e 0d 09 20 20 66 43 75 | 72 44 6f 63 2e 44 6f 41 |N.. fCu|rDoc.DoA|
|00003230| 63 74 69 76 61 74 65 28 | 4e 4f 54 28 66 49 6e 42 |ctivate(|NOT(fInB|
|00003240| 61 63 6b 67 72 6f 75 6e | 64 29 29 3b 0d 45 4e 44 |ackgroun|d));.END|
|00003250| 3b 0d 0d 7b 24 53 20 49 | 6e 69 74 69 61 6c 69 7a |;..{$S I|nitializ|
|00003260| 65 7d 0d 7b 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |e}.{----|--------|
|00003270| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003280| 2d 2d 2d 2d 2d 2d 2d 2b | 0d 7c 09 54 72 61 70 41 |-------+|.|.TrapA|
|00003290| 76 61 69 6c 61 62 6c 65 | 09 09 09 09 09 7c 0d 2b |vailable|.....|.+|
|000032a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032b0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000032c0| 2d 2d 2d 7d 0d 46 55 4e | 43 54 49 4f 4e 20 54 41 |---}.FUN|CTION TA|
|000032d0| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 54 72 61 70 41 |pplicati|on.TrapA|
|000032e0| 76 61 69 6c 61 62 6c 65 | 28 74 4e 75 6d 62 65 72 |vailable|(tNumber|
|000032f0| 3a 69 6e 74 65 67 65 72 | 3b 74 54 79 70 65 3a 54 |:integer|;tType:T|
|00003300| 72 61 70 54 79 70 65 29 | 3a 42 6f 6f 6c 65 61 6e |rapType)|:Boolean|
|00003310| 3b 0d 42 45 47 49 4e 0d | 09 7b 20 53 65 65 20 69 |;.BEGIN.|.{ See i|
|00003320| 66 20 74 68 65 20 74 72 | 61 70 20 65 78 69 73 74 |f the tr|ap exist|
|00003330| 73 2e 20 4f 6e 20 36 34 | 4b 20 52 4f 4d 20 6d 61 |s. On 64|K ROM ma|
|00003340| 63 68 69 6e 65 73 2c 20 | 74 54 79 70 65 20 77 69 |chines, |tType wi|
|00003350| 6c 6c 20 62 65 20 69 67 | 6e 6f 72 65 64 2e 20 7d |ll be ig|nored. }|
|00003360| 0d 09 54 72 61 70 41 76 | 61 69 6c 61 62 6c 65 20 |..TrapAv|ailable |
|00003370| 3a 3d 20 4e 47 65 74 54 | 72 61 70 41 64 64 72 65 |:= NGetT|rapAddre|
|00003380| 73 73 28 74 4e 75 6d 62 | 65 72 2c 20 74 54 79 70 |ss(tNumb|er, tTyp|
|00003390| 65 29 20 3c 3e 0d 09 09 | 09 09 09 09 47 65 74 54 |e) <>...|....GetT|
|000033a0| 72 61 70 41 64 64 72 65 | 73 73 28 5f 55 6e 69 6d |rapAddre|ss(_Unim|
|000033b0| 70 6c 65 6d 65 6e 74 65 | 64 29 3b 0d 45 4e 44 3b |plemente|d);.END;|
|000033c0| 0d 0d 7b 24 53 20 4d 61 | 69 6e 7d 0d 7b 2d 2d 2d |..{$S Ma|in}.{---|
|000033d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000033e0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000033f0| 2b 0d 7c 09 44 6f 63 4c | 69 73 74 09 09 09 09 09 |+.|.DocL|ist.....|
|00003400| 09 09 7c 0d 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|.+---|--------|
|00003410| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003420| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 46 55 4e 43 54 49 |--------|}.FUNCTI|
|00003430| 4f 4e 20 54 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |ON TAppl|ication.|
|00003440| 44 6f 63 4c 69 73 74 3a | 54 44 6f 63 75 6d 65 6e |DocList:|TDocumen|
|00003450| 74 4c 69 73 74 3b 0d 42 | 45 47 49 4e 0d 09 44 6f |tList;.B|EGIN..Do|
|00003460| 63 4c 69 73 74 20 3a 3d | 20 66 44 6f 63 4c 69 73 |cList :=| fDocLis|
|00003470| 74 3b 0d 45 4e 44 3b 0d | 0d 7b 24 53 20 49 6e 69 |t;.END;.|.{$S Ini|
|00003480| 74 69 61 6c 69 7a 65 7d | 0d 7b 2d 2d 2d 2d 2d 2d |tialize}|.{------|
|00003490| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034a0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2b 0d 7c |--------|-----+.||
|000034b0| 09 53 74 61 63 6b 4e 65 | 65 64 65 64 09 09 09 09 |.StackNe|eded....|
|000034c0| 09 09 7c 0d 2b 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |..|.+---|--------|
|000034d0| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000034e0| 2d 2d 2d 2d 2d 2d 2d 2d | 7d 0d 46 55 4e 43 54 49 |--------|}.FUNCTI|
|000034f0| 4f 4e 20 54 41 70 70 6c | 69 63 61 74 69 6f 6e 2e |ON TAppl|ication.|
|00003500| 53 74 61 63 6b 4e 65 65 | 64 65 64 3a 20 4c 6f 6e |StackNee|ded: Lon|
|00003510| 67 69 6e 74 3b 0d 42 45 | 47 49 4e 0d 09 53 74 61 |gint;.BE|GIN..Sta|
|00003520| 63 6b 4e 65 65 64 65 64 | 20 3a 3d 20 30 3b 0d 45 |ckNeeded| := 0;.E|
|00003530| 4e 44 3b 0d 0d 7b 24 53 | 20 49 6e 69 74 69 61 6c |ND;..{$S| Initial|
|00003540| 69 7a 65 7d 0d 7b 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |ize}.{--|--------|
|00003550| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003560| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0d 7c 09 48 65 61 |--------|-+.|.Hea|
|00003570| 70 4e 65 65 64 65 64 09 | 09 09 09 09 09 7c 0d 2b |pNeeded.|.....|.+|
|00003580| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003590| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|000035a0| 2d 2d 2d 7d 0d 46 55 4e | 43 54 49 4f 4e 20 54 41 |---}.FUN|CTION TA|
|000035b0| 70 70 6c 69 63 61 74 69 | 6f 6e 2e 48 65 61 70 4e |pplicati|on.HeapN|
|000035c0| 65 65 64 65 64 3a 20 4c | 6f 6e 67 69 6e 74 3b 0d |eeded: L|ongint;.|
|000035d0| 42 45 47 49 4e 0d 09 48 | 65 61 70 4e 65 65 64 65 |BEGIN..H|eapNeede|
|000035e0| 64 20 3a 3d 20 30 3b 0d | 45 4e 44 3b 0d 0d 7b 24 |d := 0;.|END;..{$|
|000035f0| 53 20 4d 61 69 6e 7d 0d | 7b 2d 2d 2d 2d 2d 2d 2d |S Main}.|{-------|
|00003600| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003610| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2b 0d 7c 09 |--------|----+.|.|
|00003620| 53 6c 65 65 70 56 61 6c | 09 09 09 09 09 09 7c 0d |SleepVal|......|.|
|00003630| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |+-------|--------|
|00003640| 2d 2d 2d 2d 2d 2d 2d 2d | 2d 2d 2d 2d 2d 2d 2d 2d |--------|--------|
|00003650| 2d 2d 2d 2d 7d 0d 46 55 | 4e 43 54 49 4f 4e 20 54 |----}.FU|NCTION T|
|00003660| 41 70 70 6c 69 63 61 74 | 69 6f 6e 2e 53 6c 65 65 |Applicat|ion.Slee|
|00003670| 70 56 61 6c 3a 20 4c 6f | 6e 67 49 6e 74 3b 0d 42 |pVal: Lo|ngInt;.B|
|00003680| 45 47 49 4e 0d 09 53 6c | 65 65 70 56 61 6c 20 3a |EGIN..Sl|eepVal :|
|00003690| 3d 20 30 3b 0d 45 4e 44 | 3b 00 00 00 00 00 00 00 |= 0;.END|;.......|
|000036a0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036b0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036c0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000036f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003700| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 1e |.......L|...L....|
|00003710| 00 00 e7 a3 0b 55 4f 62 | 6a 65 63 74 2e 70 2e 6f |.....UOb|ject.p.o|
|00003720| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003730| 13 55 41 70 70 6c 69 63 | 61 74 69 6f 6e 2e 69 6e |.UApplic|ation.in|
|00003740| 63 31 2e 70 02 00 00 00 | 54 45 58 54 4d 50 53 20 |c1.p....|TEXTMPS |
|00003750| 00 00 54 45 58 54 4d 50 | 53 20 01 00 00 3c 01 20 |..TEXTMP|S ...<. |
|00003760| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003770| 00 00 a1 4b 04 00 00 00 | 36 19 00 00 01 6a 00 00 |...K....|6....j..|
|00003780| 00 00 00 00 00 00 00 00 | 00 00 00 52 25 00 00 00 |........|...R%...|
|00003790| e8 c0 16 77 6f 72 6b 69 | 6e 67 20 63 61 73 73 65 |...worki|ng casse|
|000037a0| 74 74 65 20 6c 61 62 65 | 6c 00 00 00 00 00 00 00 |tte labe|l.......|
|000037b0| 00 00 00 00 00 6b 25 00 | 00 00 e8 ff 0f 4e 6f 6e |.....k%.|.....Non|
|000037c0| 2d 44 65 62 75 67 20 46 | 69 6c 65 73 00 00 00 00 |-Debug F|iles....|
|000037d0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 8e |........|........|
|000037e0| 25 00 00 00 e9 d4 00 00 | 00 00 00 00 00 00 00 00 |%.......|........|
|000037f0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00003800| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 65 3a 4d |...H..Mo|naco.e:M|
|00003810| 50 57 20 33 2e 30 3a 4d | 50 57 2e 45 72 72 6f 72 |PW 3.0:M|PW.Error|
|00003820| 73 00 01 b3 00 44 00 06 | 00 04 00 2a 00 03 01 d8 |s....D..|...*....|
|00003830| 02 79 00 2a 00 03 01 9d | 02 21 a1 4b 04 00 00 00 |.y.*....|.!.K....|
|00003840| 00 00 00 00 00 00 00 00 | 00 00 01 00 00 00 01 00 |........|........|
|00003850| 00 00 01 4c 00 00 00 4c | 00 00 00 1e 00 25 27 dc |...L...L|.....%'.|
|00003860| 09 30 00 00 00 1c 00 1e | ff ff 00 00 00 00 00 00 |.0......|........|
|00003870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+